I. INTRODUCTION 

Any interactive graphics program is more complex than 
the usual "Sample program" unless its only function is to plot 
a simple picture. If the program also defines and manipulates 
a data structure containing relational information about the 
problem, the complexity of the program rapidly increases. This 
example attempts to provide the "flavor" of a program which 
performs a useful function, but with enough simplifying assump- 
tions to make it tractable as a demonstration program. 

A variety of applications suitable for treatment using 
interactive graphics can be considered as a variation upon 
the basic problem of building, editing and analyzing networks. 
Examples of this type of problem are computer program flow- 
charting, design of piping networks, construction of PERT 
diagrams and the design of electrical circuits. A typical 
program of this type having sufficient facilities to make Le 
useful to a professional in the applications field would run 
well over 100 pages of listings in a high-level programming 
language. In order to provide a vehicle for treating many of 
the issues important in the design and implementation of 
interactive graphics programs, a simple network drawing and 
editing program was implemented. ‘The program could have been 
designed to deal with 'black boxes' and their interconnections. 
However, in order to give the program some degree of reality, 
the network components are represented by components from 
electrical engineering, but the program was designed as a 


es 


-2- 

EN, 
teaching vehicle rather than as a useful program for circuit 
design. It is theverare completely unnecessary to know anything 
about electrical engineering; components may be treated as 
different flavors of black boxes. 

The program would have to be expanded considerably to 
be useful for circuit design and analysis, both in the types 
of elements it can handle and in the analysis routines pro- 
vided, which are completely missing in this case. Therefore, 
the sample program should be regarded as being only a fraction 
of the size and complexity of a useful on-line circuit design 
system; the principal limitations are summarized in Section 
IX. In studying the program, one should regard the example as 
a vehicle to illustrate: ™~ 
l. typical manipulations upon complex data structures, 
2. programming techniques used to allow a user to interact | 
with a program through the use of “light buttons", 
3. the correlation of graphic input with the program data 
structure, 
4. high-level language facilities which facilitate graphics 
programming. 
The program allows the user to construct an electrical 
circuit containing nodes, capacitors, resistors, and short 
circuits, to modify the circuit, and to assign names and values 


to resistors and capacitors. 
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In order to specify large circuits, it is desirable 
to be able to define devices. A device is a circuit which 
will be used as a unit in building a larger circuit; it will 
be represented whenever it is used by a unique symbol. For 
example, it is simpler to use a symbol to represent a tran- 
sistor than to draw the circuit defining the transistor every 
time a transistor is needed. It is frequently necessary to 
be able to substitute the definition of a device (i.e., the 
circuit specifying it) for its symbol when the properties of 
the circuit are being investigated. A device in the sample 
program serves much the same purpose as does a subroutine in 
a programming language; if the network problem considered had 
been computer program flowcharting, each subroutine would have 
a unique symbol to represent a call to it. As would be 
expected, a device can always be defined using previously 
defined devices and the basic eireuie components, nodes, 
Capacitors, resistors and shorts. The device definition must 
specify how it can be connected when used, just as the defi- 
nition of a subroutine must include the number of arguments. 
The definition, usage and editing of devices is one of the . 


more sophisticated portions of the sample program. 
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ii. DISPLAY EQUIPMENT USED 
The sample program has been designed to operate upon a 


display terminal using a storage CRT rather than the more usual 


type of terminal whichcontinuously redisplays the picture. 
When a storage CRT is used, the image is transmitted to the 
terminal only once and is stored locally within the display 
tube. The display can be partially altered only for additions; 
. to delete any portion of the picture, all the information on 
the screen must be erased and the display regenerated with the 
alterations. As the picture is drawn only once, light pens 
cannot be used with storage CRT displays, but a device such as 
a joystick driving a cursor can be used to point to objects; 
this mechanism is handled locally at the console. Applica- 
tions that involve frequent picture changes, such as animated 
movies or the rotation or translation of objects, cannot be 
performed using a storage CRT terminal. However, for those 
applications for which it is sufficient, the cost of a commer- 
cially available terminal including a keyboard and graphic 
input facilities is about $10,000. 

The terminal used for operating the sample program is 
the Advanced Remote Display Station (ARDS) which was developed 
at the M.I.T. Electronics System Laboratory as a remote display 
for a time-sharing system (2,3). The main design requirement 
was a graphic terminal that could operate over switched voice- 


grade telephone lines using the full ASCII character set with 


25s 
minimum demands on the time-sharing system. The terminal 
includes a character generator and line generator. For graph- 
ics the display screen is defined to contain 1081 xX 1415 ad- 
dressable, but not necessarily resolvable, points; the point 
with x and y addresses 0,0 is in the center of the screen. 

Two types of graphic input devices are available, a 
joystick and a "Mouse," both of which can be used to position 
a cursor on the screen. A feature of the terminal design is that 
the cursor can be displayed at an intensity sufficient to make 
it visible, but insufficient to cause it to store on the screen. 
Buttons are provided on the graphic input devices which allow 
either the cursor position, or the relative vector from the 
last beam position, to be transmitted. 

The sample program was written using this terminal in 
order to illustrate that useful interactive programs can be 
created using reasonably-priced hardware which can communicate 
with computers over voice-grade telephone lines (preferably at 
speeds of at least 1200 baud). In addition, the program illus- 
trates how the pointing function can be implemented using 


devices other than light pens. 


II, PROGRAM FUNCTIONS 


The program allows the user to perform the following 


seven functions: 


Le 


To begin drawing the circuit by specifying a 
point on the screen where the first node is to 
be defined. A node is a point of intersection 
of circuit elements and can only occur at speci-~ 
fied grid points on the screen. 


To draw, from the node last indicated with the 
graphic input device, an element which may be: 


a. a horizontal capacitor, resistor or 
short circuit 

b. a vertical capacitor, resistor or 
short circuit, 


To define as a device a circuit to be drawn, and 
to assign a symbol and a name to a device. 


To use the device in constructing a circuit. 


To delete a device, a node or an element pointed 
to by the graphic input device. 


To assign a value to a resistor or capacitor. 
To edit a device definition in order to alter the 


elements comprising the equivalent circuit for 
the device. 


The user operates the program by using the graphic input 


device to point to a "light button" in order to indicate the 


program option desired. Nodes, devices and elements of interest 


are also denoted using the graphic input device. Values and 


names for devices, capacitors and resistors are input via a 


keyboard. 


A light button is a descriptive phrase displayed on 


the screen to indicate a program option. When the user points 
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to a phrase with the graphic input device, the program iden- 
tifies the light button and associates it with information in 
the program's data structure which indicates the proper action 
to be taken. In this program two sets of light buttons, or 
"menus," are used, one for operations upon the main circuit 
and one for operations involving devices. If changing the 
menu did not involve erasing the screen and rewriting all the 
information on it, which may take several seconds when using 
the ARDS terminal on a telephone line, more selective menus 
could have been used to further reduce the user options to 
include only those which the user could employ within the 
present context of his work. The two menus are shown on the 


next page. 


This empty page was substituted for a 
blank page in the original document. 


Light Button Text 
DELETE 


VALUE 


HORIZ RESISTOR 


VERT RESISTOR 


HORIZ CAPACITOR 
VERT CAPACITOR 
HORIZ SHORT 
VERT SHORT 


AUTO ERASE ON 


AUTO ERASE OFF 


ERASE AND REDRAW 


QUIT 


ATTACH DEVICE 


TERMINATE 


DEFINE DEVICE 


EDIT DEVICE 
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LIGHT BUTTONS 


Functions 


Delete a node, element or usage of 
a device 


Assign a value to a resistor or capa- 
citor 


Draw a horizontal resistor to the 
right from the node previously spec- 
ified 


Draw a vertical resistor down from the 
node last specified 

Draw a horizontal capacitor 

Draw a vertical capacitor 

Draw a horizontal short 


Draw a vertical short 


Set mode to erase and redraw the display 
whenever a deletion occurs 


Opposite of AUTO ERASE ON (Normal 
program mode) 


Erase the screen and redraw the picture 
immediately 


Terminate program execution, returning 
control to the timesharing system 
command level 


Replace a node previously specified 
with a device to be specified 


Terminate the device definition which is 
being defined or edited 


Begin a device definition, saving the 
present state of the main circuit for 
use when the definition is terminated 


Retrieve a previously defined device for 
editing, saving the present state of 

the main circuit until the editing is 
terminated 


The TERMINATE light button only occurs on menu 2 and the DEFINE DEVICE 
and EDIT DEVICE buttons only occur on menu l. All other light buttons 


are on both menus. 
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IV. MODELING THE CIRCUIT 
If the program is to deal with the circuit, it must have access 
to certain information about it. For instance, one might want to know 
what is the value of capacitor ''C3'"'. To answer this question, the 
program must have stored the fact that there is an element named 
"C3" which has a certain value. Buta circuit is more than just data 
of this type. Editing operations, such as deleting a node, require a 
| knowledge of many relationships; to delete a node, one must remove 
all of the elements of any type attached to it. This type of information 
will be called structure. Each node or element in the circuit has 
certain data pertaining to it and there is a structure which interrelates 
the nodes and elements. 
The following data items are stored for each node: 
1. A'name", 


2. An X and Y position in some system of 
coordinates. 


3. The number of elements attached to the 
nodes. 


The structural information for each node specifies which elements are 
attached to the node. 
For a resistor or capacitor, the program stores as data: 
1. The value of the resistance or capacitance. 


2. A''name'' so the user can refer to the 
element. 


The structural information for an element specifies the two nodes to 
which the element is connected. For an element representing a short 
circuit one need store, in this example, only the nodes between which 


the short is connected. All of the data plus the structure indicating 
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relationships between the individual parts of the model is called the 
model's data structure. 

Many computer representations of these elements and their 
interconnections can be devised. To create a sample program we 
shall use the AED (Algol Extended for Design) System which has been 
developed by the M.I. T. Electronic Systems Laboratory Computer 
Applications Group and which operates on several computers, includ- 
ing the IBM 360 and 7094, and the UNIVAC 1108. The circuit will be 
modeled by using a bead, or block of contiguous storage, to represent 
each node or element. Each bead contains a code to indicate what 
type of circuit component it represents and also all the information 
(both data and structure) to be stored for the component. The connec- 
tion of circuit components is implemented by the use of pointers, an 
element bead will contain a pointer which will allow the program to 
locate the node bead corresponding to the node to which the element is 
connected. Figure 1b shows the format of the data structure beads 
used in the program, Ina resistor bead, for example, the code to 
indicate that the bead represents a resistor is stored in the word 
labelled TYPE. FROMNODE and TONODE are pointers to the node 
beads representing the nodes between which the resistor is connected. 
NAME is a pointer to the character string specifying a unique name 
for the resistor. VALUE is the numeric value of the resistance. 
Each item in a bead can be referenced symbolically by the use of the 
AED components feature; an item in a bead such as FROMNODE will 
be referred to in subsequent sections as a component of the bead. 


Beads are obtained from a free storage system (a storage management 


am We ae 


Node Bead T =1 Resistor Bead Short Circuit Bead 
T = 2 Capacitor Bead: es 


Fig. Ib Data Structure Beads used to Model the Circuit 
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system). The facilities of the AED system used in this program are 


described more completely in Section VIII. 
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Vv. PROGRAM OPERATIONS ON THE DATA STRUCTURE 


To perform each of the functions of the program, operations 


must be performed on the data structure; the modification of the 


graphical representation of the circuit is only an obvious manifesta- 


tion of the alteration made to the structure. To begin to drawa 


circuit the program must: 


1, 


Obtain a block of storage, and store in it the code 
to indicate that it represents a node. We will 
call this block a node bead. It will contain all 
the information (both data and structure) about 
the node. 


Store in the node bead the coordinates of the node 
in some coordinate system. We will use a 
coordinate system in which all nodes lie on grid 
positions separated by a Ax or Ay of 200; the 
center of the grid has coordinates (0,0). The 
first node is drawn at the nearest grid position to 
the position of the graphic input device. 


To draw an element (resistor, capacitor, or short) and attach 


it to a node, the program must: 


1. 


Obtain an element bead which will contain all the 
information about the element; the type of 
element is stored in the TYPE component of the 
bead. 


Find the node bead corresponding to the node the 
user pointed to with the graphic input device. 


Modify the node bead to indicate a new relation 
exists, i,e., the element just created is to be 
"attached". Increase the count of the number of 
leads attached to the node which is stored in the 
LEADS component of the node bead. 


Determine if a node already exists at the other 
end of the element. If not, one must be created 
and then the element must be "attached" to the 
new node. 


"Attachment" of an element can be done in many ways, depending upon 


how relations are to be implemented in the computer. In this problem, 
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attachment means that pointers are stored in the node bead to indicate 
the elements which are attached to the node. Each element bead con- 
tains pointers to the two node beads representing the two nodes to 
which it is connected. 
To delete an element pointed to by the graphic input device the 
program must: 
1. Find the element bead corresponding to the 
element to which the user pointed with the graphic 
input device. 
2. Locate the nodes to which the element is attached, 
and set the pointers to indicate that the element is 
no longer connected and reduce the count of the 
number of leads attached to the node. If no leads 


are attached to the node, it can also be deleted. 


3. Return the element bead to the list of available 
storage so that it may be used again. 


In addition the graphical representation of the item must be removed 
from the screen. 

Figure lc illustrates the data structure for a partially com- 
pleted circuit; the circuit is shown schematically in Fig. la. For 
node beads only the up, left, right and down element connections are 
shown; for resistor, capacitor and short circuit beads only the 
connections to the node beads are shown. The figure also shows the 
pointer chain linking all nodes, This chain, which permits the 
program to follow pointers from one node to another, is useful since 
the node chain is searched frequently. Figure 1d shows the data 
structure as modified by adding an element, R3, between node 3 and 
node 6. 

A more complicated program operation is deleting a node. If 


a node is deleted, all elements attached to it are to be deleted. Since 
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Fig. tc Data Structure for Partially Completed Circuit 
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1f Data Structure for Partially Completed Circuit with Node 5 Deleted 
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these elements are also attached to other nodes, one must update the 
information about these nodes to indicate the elements have been 
removed. Since the data structure implements a connection between 
all node beads by means of a pointer from one node bead to the next 
node bead, this connection must be altered to join together the nodes 

remaining. Of course, one must also modify the display to reflect | 
- the changes in the circuit; changing the model of the circuit in this 
program has no direct effect on the graphical eepveyentation of the 
‘ circuit. All alterations to the display must be independently speci- 
fied. Figure le shows the data structure in Fig. lc after node 6 vas 
‘deleted, and Fig. 1f shows the effect of deleting node 5. 

The most complicated program functions are the definition, 
editing and usage of devices. A device must be defined before it can 
: be used, but the definition may be begun at any time during the defini- 
i tion of a circuit. If a circuit, such as the one shown in Fig. la, is 
partially complete at the time a definition is to begin, the state of the 
Chetite will be preserved until the device definition is complete and 
; then it will be restored. The program does not allow the user to 
- partially complete a circuit and then declare it to be a device; he 
-must enter the: device definition mode before beginning to specify the 
circuit which will represent the device. | 

The circuit representing a device, or its equivalent circuit, 
can contain elements, nodes and occurrences of previously defined 
devices, Each device has a user-supplied name and a symbol which 
indicates the number of leads the device has available for sasciienk: 


The maximum number of leads allowed is four, since in this program 


es 

a device is used in a circuit as a substitute for a mode. Before a 
device definition is complete, a symbol having the correct number of 
leads must be selected. The correspondence between each lead on the 
symbol and the terminal nodes in the equivalent circuit for the devices 
must also be established. This correspondence is required so that an 
analysis prog ram could properly substitute the eiuicalent circuit for 
the device in order to evaluate the properties of the overall circuit. 

To define a device, the program must enter degics definition 
mode and: 


1. Obtain a device definition bead which will contain 
all the information about the device definition; it 
will contain no information about how the device 
is used. 


2. Allow the user to design the equivalent circuit 
after having stored the circuit being constructed 
on the main circuit level. When the definition is 
complete, the main circuit will be restored. The 
FIRST: NODE component of the device definition 
bead points to the beginning of the data structure 
for the equivalent circuit. 


3. Ask the user to provide a name to be given to the 
device and to select a symbol to represent the 
device when it is used. The style of symbol is 
given by the component BOX’STYLE in the device 
definition bead. The number of leads on the sym- 
bol selected is the number of terminal nodes in the 
circuit. A terminal node must be a node (or 
device) to which less than four elements have been 
connected. 


4, Establish the connection between each lead on the 
symbol and a terminal node in the circuit. 


5. Add the newly created device definition bead to the 
device definition chain, which links all device 
definitions. 


The format of the device definition bead is shown in Fig. 2a; the data 


structure built when two devices are defined is shown in Fig. 2c. 


FIG. 2A DEVICE DEFINITION BEAD 
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FIG. 2B DEVICE USAGE BEAD 
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To use a device ina circuit, the program must: 


1 hs Determine that the device to be attached has been 
defined. 
2. Obtain a device usage bead which will contain all 


‘the information about this usage of the device, 
such as the elements to which it is attached and 
whether or not certain leads can be used (i.e., if 
the device had only two terminal nodes, only two 
of the possible four leads can be used to attach 
elements). The bead also contains a pointer to the 
device definition bead so that the device definition 
could be used by an analysis program (this fact is 
not used in this program). 


3. Delete the node at the place where the device is to 
be plotted. A device can only be positioned ata 
point where a node already exists. 


4. Display the symbol corresponding to the device, 
including a name. The orientation of the device 
symbol must be specified. For example, if the 
user selected a symbolstyle such as 


he could insert it into the circuit in one of the four 
following orientations: 


The four orientations are displayed and the user 

must select the correct one with the graphic input 

device, The name is the one given when the device 

was defined concatenated with a number indicating 

the particular occurrence of the device. 
The format of the device usage bead is shown in Fig. 2b. It should be 
noted the bead is nearly the same as a node, except that the type code 
is different, the existence of leads in certain directions may be 


forbidden, and the last component is a pointer to the device definition 


bead for the device being used. 
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VI. SPECIFICATION OF THE DISPLAY 

The programming system that allows the different types of 
display consoles to be used with the M.I. T. time-sharing system 
(CTSS) has been given the name GRAPHSYS. (1,4) The user interface 
is a set of procedure calls which allow the user to plot objects such as 
lines and points to remove objects from the screen, and to determine 
which object was 'seen'' by agraphic input device. 


Although a display console deals only in terms of simple 


console commands such as "draw a point" or ''draw a line," the user 


wants to deal with objects. An object is a group of console commands 


which are added to the display file at the same time and are to be 
thought of as an atomic entity, e.g., a capacitor consisting of several 
short, straight-line segments (made by several line-generate 
commands), The display file is the ordered sequence of console com- 


mands which is sent to a display console to produce a picture. 


A. Naming of Display Objects 

When an object is placed in the display file, it must be given 
a unique descriptor, or name, if it is to be identified again. The user 
may wish to specify some object upon which GRAPHSYS should 
perform a function (e.g., delete this object), or GRAPHSYS may wish 
to inform the user of some action concerning it (e.g., this object was 
seen by the light pen). The name is used to refer to an object in all 
communications between GRAPHSYS and the user; the name must be 
both unique and invariant so that an object can be uniquely identified 


at any time. 
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The form of a unique and invariant name which appears 
simplest, at least conceptually, is a subscript in an array. In order 
to perform the correlation function, which transforms (via a corre- 
lation map) the address of a console command causing a light pen 
interrupt to the user's name for the object, GRAPHSYS would have 
to build an array of length equal to the total number of names. An 
element in this array would contain the initial location of the console 
commands corresponding to the object whose name is the subscript 
of the element in the array. In addition, the user would need a simi- 
lar array giving the item in his data structure corresponding to the 
name. Thus, there would be a double map, one from the user's 
name to the console command locations and one relating the name to 
the user's data structure. These maps correlate the data structure 
for an object with its display representation. Double maps, espe- 
cially in array form, are expensive in their use of core storage. 

The naming scheme which has been employed by GRAPHSYS 
meets the criteria of uniqueness, invariance and convenience, at 
least within the context of an in-core data structure. To use the 
GRAPHSYS naming convention, the user extends each bead by one or 
two woud the correlation word(s) which contain the suesepriate 


correlation information. In this manner explicit arrays are avoided, 
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and when the appropriate correlation word is located by the correla- 
tion mechanism, the corresponding data element (bead) is found 
immediately adjacent, thereby avoiding the map between the user's 
name and an element in the data structure. GRAPHSYS will be respon- 
sible for storing into and updating these correlation words, and per- 
forming the actual correlation. In a correlation word GRAPHSYS will 
store the address of the console commands for the object. The duique 
"name'' of the object is the address of the correlation word, which is 
also the address of the user's data structure bead for the object. 

Figure 3 illustrates the combined user-and-GRAPHSYS data 

structure for a display file containing three objects. In our example 
the correlation word(s) will occur as the first word in the entire block 
of storage representing an element, node or device. Each correlation 
word contains the name of the next object in the display sequence. The 
GRAPHSYS display data structure is therefore a one-way list threading 
through the user's data structure. A name of zero signifies the end of 
the list. The contents of the correlation word are maintained solely 
by GRAPHSYS,; the user does not have to be concerned with the loca- 
tion of the console commands. Note also that this particular thread 
(list) through the beads is independent of the data associations between 
beads, i.e., the other list structures which the user's programs may 


have built. 


B. Use of Subpictures 
The data structure built by GRAPHSYS using the correlation 


words becomes more complex when subpicture calls and definitions are 


considered. Subpictures are defined using the procedures DEFSUB and 
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ENDSUB which work like BEGIN and END in PL/I or AED, Subpicture 
definitions may include calls to other subpictures to any depth, except 
that subpicture calls can not be recursive. Although subpictures may 
be defined within subpictures, they may still be called from outside 
those subpictures, i.e., subpictures do not possess a PL/I-type block 
structure. They behave exactly as if they had all been defined in 
parallel at the highest level. 

A separate list is built by GRAPHSYS linking all subpicture 
definitions. Each element in this list is the start of a subpicture defi- 
nition and contains 3 pieces of information: 

1, The number of times the subpicture is called. 

2. A pointer to the first correlation word in the 

subpicture definition. The list beginning with 
this correlation word is of the same format as 


shown in Fig. 3. 


3. A pointer to the next subpicture in the subpic- 
ture definition list. 


A subpicture call requires two correlation words which 
contain: 
1. <A pointer to an element in the subpicture 
definition list, i.e., a pointer to the beginning 
of the definition for the subpicture being called. 
2. <A pointer to the next correlation word, i.e., 
the next object in the display sequence follow- 


ing the call. 


3. The display buffer address of the subpicture 
call (for refresh-type displays). 


This structure is built automatically by GRAPHSYS and the user's 
only responsibility is to provide the storage used for the correlation 
words. Figure 4 provides a schematic view of the structure built 


in the following case: 
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1. The main display file contains an object and 2 
subpicture calls, to subpictures D1 and D2. 


2. The subpicture definitions corresponding to 
these calls are D] and D2. 


3. D1 contains a call to definition D3, and D2 
contains a call to definition D4 and to definition 
Dil. 


4. D3 contains only subpicture calls, to definitions 
D5, D6 and D4. 


The data structure built when a subpicture is defined retains 
the information about how the subpicture is built in terms of individual 
display objects. However, the same pictorial representation can be 
obtained by defining what is called a compound object in GRAPHSYS. 

A compound object is produced by combining physically the display 
commands from all the objects specified in order to create the display 
code for the new compound object. The difference between compound 
objects and subpictures is analogous to the difference between compil- 
ing and interpreting computer programs. Ina compiled program the 
input statements cannot be deduced by examining the compiled code; 
in an interpreted program, the structure of the statements is retriev- 
able. The data structure created at the time a subpicture is defined 
permits a 'pensee' to be decoded as referring to a certain object 
within the subpicture; in terms of the analogy it is easy fora 
language interpreter to report the source language statement corres- 
ponding to an execution-time error. However, if 'pensee' occurs upon 
a compound object, there is no information available about which 
object of those originally used to create the object was responsible for 
the pensee. Compound objects should be used when the object is the 


smallest piece of the picture to which the user expects to make 
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reference; subpictures preserve the structure used in the definition 
and therefore should be used if this structure is important. 

When the user in the sample program defines a device, it is 
represented internally as a subpicture since the user may wish to 
modify the definition of the Savics in terms of nodes, devices, and 
elements comprising it. In order to display the equivalent circuit for 
the device, the subpicture for it is called. Devices may be defined in 
terms of previously-defined devices; this hierarchy is represented 
by a subpicture definition for the new device, which will contain a sub- 
picture call to the definition for the previously-defined device. When 
an object within a subpicture is 'seen'' by the graphic input device, the 
identity of the subpicture call and the corresponding subpicture defini- 
tion is available, in addition to the identity of the object upon which the 
pensee occurred. If subpicture definitions are nested, the entire sub- 
picture hierarchy is returned upon a pensee; it is up to the user to | 


decide how much of this history of formation is meaningful at that time. 


C. Correlation of Graphic Input with Problem Data Structure 
When a display with a light pen is being employed, the display 


hardware provides, at the time a light pen inte rrupt occurs, the X and 
Y beam coordinates and the address in the display buffer from which 
the current display instruction was fetched. In order to report to the 
user the object "seen'' by the light pen, GRAPHSYS searches the data 
structure shown in Fig. 3, serially via the correlation word pointers 
for each bead (object), checking if the address resulting from the light 
pen interrupt corresponds to any of the display buffer locations contain- 


ing the display commands to draw this object. If, for example, in 


m™N 


= 336 
Fig. 3 the address at the time of the light pen interrupt was DF2+3 and 
if the object starting at DF2 had 7 display commands, the address of 
the correlation word of the object seen would be found by the search to be 
N2. Since the correlation word in this program is always the first 
component of the data structure bead describing the object, the user 
has immediate access to the data about the object. 

Unfortunately, in a non-refreshed display system, such as is 
used in this example, the address corresponding to the display com- 
mands for the object cannot be obtained by an interrupt since only the 
X-Y coordinates of the cursor are available. GRAPHSYS must decide 
which object the user tried to designate with the cursor. The most 
convenient terminology to describe the correlation of graphic input 
with objects is by analogy with the use of a light pen. Therefore, we 
will use the term "'pensee'"' to indicate a correlation between a graphic 
input device and a displayed object and "pen sensitivity" to indicate an 
object is eligible for such a correlation, 

The algorithm used assumes that the area within which an 
object is pen sensitive is a rectangular area associated with the object. 
To make a displayed item "pen-sensitive'" the user calls the procedure 
PENSNS, giving the size and the relative position of the rectangle. A 
special bit is set in the correlation word to indicate it is pen sensitive. 
If he does not wish to specify the position of the rectangle, a program- 
computed center is used, When the user indicates he wants to identify 
an object being pointed to with the cursor, GRAPHSYS searches the 
data structure illustrated in Fig. 4 for the first pen-sensitive object 


having a rectangle within which the cursor coordinates fall. A pen- 
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sensitive subpicture call requires that the subpicture definition be 
searched; upon a pensee, the name of object seen, the name of sub- 
picture definition which includes the object, and the name of the sub- 
picture call are returned to the user. If the subpicture call is within 
a subpicture definition, the names of all outer subpicture calls and 
definitions are also returned. 

When the pen-sensitivity package is being used, the model of 
the picture maintained in the computer must correspond exactly to the 
picture on the screen. If the two differ, the user could point to an 
object which his program believes has been deleted, or the pen- 
sensitivity program may "'see'' an object which has not yet been 
displayed on the screen, In the program an object which has been 
deleted will be written over with a large X to indicate that it has been 
removed from the problem and display file data structures, but it will 


remain on the screen until the picture is redrawn. 


D. GRAPHSYS Procedures 
A variety of GRAPHSYS procedures are used in this example ; 
they can be divided into six classes: 


1. Those procedures for creating standard display 
objects such as lines, point, and character strings 
(procedures LIN, SETPT, TEXT). 


2. Those procedures for modifying display objects, 
such as those procedures to make a line invisible, 
a line dotted, or to make an object pen-sensitive 
(INVIS, DOTTED, PENSNS). 


3. Those procedures required in order to use com- 
pound objects, which are objects consisting of 
several standard objects; for example, an object 
consisting of several lines and a string of text 
(DEFOBJ, ADDOBJ, ENDOBJ, CRYOB)J). 
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4. Those procedures required in order to use sub- 
pictures (DEFSUB,. ENDSUB, CALL). 


5. Those procedures which add objects to the display 
file data structure and those which transmit the 
display file, or a portion of it, to the terminal 
(PLOT, DISPLAY). 
6. Those procedures which alter the display file data 
structure by removing objects or replacing objects 
with other objects (RMV, RPL). 
All GRAPHSYS procedures used in this program which return 
a value (or in FORTRAN terms are functions rather than subroutines) 
have a pointer as their value. A GRAPHSYS standard object is a group 
of display console commands which are added to the display file at the 
same time, and which are thought of as an atomic entity, i.e., a 
string of characters. The internal representation of an object is a 
block of storage containing the display commands with a header denoting 
the number of machine words in the block; the object is referenced via 
a pointer, which will be denoted in the procedure descriptions as PTR. 


A compound object consists of several standard objects which have been 


merged to form a single object, which is also referenced via a pointer. 


aa6< 


Calling Sequences of GRAPHSYS Procedures 


Procedures to create standard objects 


a. 


Pointer Procedure LIN 

Purpose: To build a standard object for a line. 

Calling Sequence: PTR=LIN (DELX, DELY) 

Where: PTR is a pointer to the object created, 
DELX is ‘the Ax component of the line, 
DELY is the Ay component of the line. 


Pointer Procedure SETPT 

Purpose: To build a standard object for a point. 

Calling Sequence: PTR=SETPT (X, Y) 

Where: X is the horizontal coordinate of the point. 
Y is the vertical coordinate of the point. 


Pointer Procedure TEXT 

Purpose: To build a standard object for a text string. 
Calling Sequence: PTR=TEXT (.C. string) 

Where: .C. string is a text string generated by the AED 


.C. operator, i.e., .C. /DELETE/ (see Sect. VIII). 


Procedures to modify standard objects. 


a. 


Pointer Procedure INVIS 

Purpose: To make all lines or points in an object unvieipie. 

Calling Sequence : PTReINVIS (PTR). 

Where: PTR is a pointer to an object, such as is piaduced 
by LIN or SETPT. 


Pointer Procedure DOTTED 
Purpose: To make all lines in an object dotted. 
Calling Sequence: PTR=DOTTED (PTR) 


Pointer Procedure PENSNS 
Purpose: To make an object pen-sensitive. 
Calling Sequence: PTR=PENSNS (PTR) 


Procedures for constructing and using compound objects 


a. 


Procedure DEFOBJ 

Purpose: Begin a compound object definition. 

Calling Sequence: DEFOBJ () 

Arguments: None 

DEFOBJ must be called before ADDOBJ can be called to add 
standard objects to a compound object. 
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Procedure ADDOBJ 

Purpose: To add a standard object to the compound object 
currently being constructed. 

Calling Sequence: ADDOBJ (PTR) 


Procedure CPYOBJ 

Purpose: To make.a copy of a standard or compound object. 
Calling Sequence: NEWPTR=CPYOBJ (PTR) 

Where: NEWPTR is a pointer to the copy. 


Pointer Procedure ENDOBJ 

Purpose: To terminate the definition of the compound 
object and to get a pointer to the definition. 

Calling Sequence: PTR=ENDOBJ () 

Arguments: None 


4, Procedures for constructing and using subpictures 


a. 


Pointer Procedure DEFSUB 

Purpose: To start defining a subpicture. 

Calling Sequence: SUBNAME=DEFSUB (SUBNAME*) 

Where: SUBNAME is the pointer to a block of two words 
which are to be used as the correlation words for the 
subpicture definition. If SUBNAME is not provided, 
DEFSUB will obtain two words from free storage and 
the value of the procedure will be a pointer to the 
words obtained. Upon a pensee within the subpicture 
definition SUBNAME will be among the information 
returned in order to designate which definition 
included the object seen. A * indicates an argument 
optional and need not be supplied. 


Procedure ENDSUB 

Purpose: To terminate the definition of a subpicture. 
Calling Sequence: ENDSUB () 

Arguments: None 


Pointer Procedure CALL 

Purpose: To calla previously designed subpicture. 

Calling Sequence: NAME=CALL (SUBNAME, NAME*) 

Where: SUBNAME is the argument supplied to DEFSUB when 
the subpicture to be called was defined. 
NAME is a pointer to a block of two words which are 
used as the correlation words for the subpicture call, 
Upon a pensee within the subpicture definition, NAME 
will be among the information returned in order to 
designate which call of the subpicture definition 
corresponds to the pensee. 
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Procedures to add, modify and transmit the display file 


a. 


Pointer Procedure PLOT 

Purpose: To add objects to the display file. 

Calling Sequence: NAME=PLOT (PTR, NAME*, AFTER*) 

Where: PTR is a pointer to the standard or compound object 
to be added to the display file. 
NAME and AFTER are optional arguments which may 
be omitted. NAME is a pointer to a word of storage 
to be used for the correlation word for the object. If 
NAME is not provided, PLOT will obtain a word from 
free storage and the value of the procedure will be a 
pointer to the word obtained. AFTER is a pointer to 
the correlation word of the object after which, in the 
display sequence, the new object should be plotted. If 
AFTER is not provided, the new object will be added 
to the end of the display file. 


Procedure DISPLAY 
Purpose: To send the display file, or a portion of it, to the 
terminal, 

Calling Sequence: DISPLAY (HERE*, THERE*) 

Where: HERE is a pointer to the correlation word of the first 
object to be displayed. 
THERE is a pointer to the correlation word of the last 
object to be displayed. HERE must precede THERE 
in the display sequence. If no arguments are provided, 
the entire display file will be output to the terminal. 


Procedure RMV 

Purpose: To remove objects from the display file. 

Calling Sequence: RMV (HERE*, THERE*) 

Where: All objects between HERE and THERE will be removed 
from the display file. HERE and THERE have the 
same meaning as for DISPLAY. 


Pointer Procedure RPL 

Purpose: To replace an object in the display file with another. 

Calling Sequence: NAME=RPL (NEW, OLD, NAME*) 

Where: NEW is a pointer to the object to replace OLD. 
NAME is the pointer to the correlation word of the 
new object. If NAME is omitted, the system will 
supply the correlation word, as is done in PLOT. 
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Vil. INPUT PROCESSING 

The sample program can receive input from both the 
keyboard and graphic input devices, and it is useful to con- 
sider the graphics terminal user as having an “extended key- 
board" consisting of a typewriter, light pen and/or position 
input devices, push buttons, etc. In the sample program all 
input is handled via one input routine, GET.ITEM, which is 
called with the type of input item to be read. 

In the call to GET.ITEM the allowable type of item 
expected by the program is indicated. In this program the 
program flow is controlled by the use of "light buttons" and 
only one type of input is allowable at a given time. In case 
of an error GET.ITEM could indicate to the user the type of 
input he was expected to provide and give him an opportunity 
to correct his error. 

GET.ITEM uses a special purpose AED system RWORD proces- 
sor (5). The allowable input types in the program are: 

1. Numeric value. 

2. Character string. 

3. Graphic input item containing the absolute position of 
the cursor. 

4. Graphic input item containing the information regarding 
a "pensee" (X,Y cursor coordinates, pointer to the 
correlation word of the object seen, and the stack of 
subpicture calls and subpicture definitions, if any). 
This item will replace an item of type 3 if the cursor 


is positioned over a pen-sensitive picture element. 
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GET.ITEM calls upon system routines that examine the contents 
of the input buffer and decide what types of input items have 
been received, performing type conversions when necessary and 
doing some processing such as the cursor correlation function. 
Different versions of GET.ITEM are required for each type of 
display console, due to different input message formats, but 
the user's interface to GET.ITEM is independent of the type of 
display upon which he is working. 

The use of GET.ITEM allows the graphics programmer not 
to worry about attention or interrupt handling. Input froma 
display terminal is handled by the M.I.T. timesharing system 
(CTSS) in much the same way as it handles input from type- 
writers. When an executing program requests input from the 
terminal and none has been provided, the timesharing super- 
visor places the program in "input wait" status and it is 
removed from the queue of programs waiting to execute. The 
ARDS transmits information on a character-by-character basis 
via its telephone line connection to a small communications 
computer, which assembles a line of input. When the "carriage 
return" character is received, and the user's program is in 
input wait status, the timesharing supervisor removes the user's 
program from input wait status and queues it to run; it can 
then read the input. 

If, on the other hand, the user's program is executing 
when input is received, the program is not interrupted and 
the program must specifically request the input in 


order to determine if it has arrived. The user's 
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program can read the line of input and act upon it in any 
way. There may be a considerable time delay between the 
time the user indicates an action is to be performed and any 
confirmation is received from his program. All information 
from the ARDS is transmitted in terms of characters; for 
example, the cursor position is encoded as a sequence of 
character codes. The M.I.T. timesharing system therefore 
simply regards the ARDS as a "high-speed teletype", although 
other techniques for handling the terminal in timesharing may 
be preferable for some applications. 

If the user of a display console equipped with a light 
pen and function keys is working continuously, but his program 
receives only intermittent service in the timesharing system, 
input from the display console must be buffered in some way 
so that his program does not lose any of the input intended 
for it. In the M.I.T. timesharing system, the highly inter- 
active consoles are connected to small computers (PDP-7 or 
PDP-9) which handle all real-time interrupts. When the small 
computer has some information for the user's program in the 
timesharing system, it signals that it has a message which 
can be read by the timesharing system at its convenience; if 
the user's program is waiting for input, it will be queued 
for execution. The small computer can confirm that the user's 
graphic input has been received, and "package" the information 


in a convenient form for transmission to the timesharing 
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system; in the case of a pensee the message would include the 
pen coordinates, the address in the small computer memory 
corresponding to the interrupt and the subpicture call stack, 
which 1s needed in order to fully interpret a pensee. When 
the user's program begins to run on the timesharing system, 
the message received from the display buffer computer can be 


processed. 
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VIII. AED LANGUAGE FEATURES 

In order to study the sample program, one must be 
familiar with some of the features of the AED language in which 
it is written. AED is an extension of ALGOL and includes many 
features especially suited for building large systems and for 
manipulating complex data structures. (6,7) A knowledge of 
ALGOL sufficient to understand the sample program in detail 
can be obtained from any ALGOL primer, such as the one written 
by McCracken (8). 

The most important AED features used in this program 
which are not included in ALGOL are the free storage system, 
the representation of character strings, pointer variables, 
and components. In our previous discussion we have used the 
term “bead" to describe a block of storage used for some par- 
ticular purpose, such as to represent all the information 
about a resistor. To create a new bead by obtaining it from 
a list of available storage, the system procedure FREE is 
called as follows: 

PTR = FREE (N) $, (the $, is the AED statement delimiter) 
The result of executing this statement will be that the pointer 
variable PTR will point to a block of contiguous storage N-words 
long. A pointer in AED on the IBM 360 or 7094 has as its 
value an absolute core location; the value of PTR is the address 
of the first word of the block of storage allocated by FREE. 
The bead can be returned to the list of available storage by 


calling procedure FRET, 
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If such blocks are to be useful, the programmer should 
have a way to refer to individual items within a block; for 
example, in working with a resistor bead, he would want to 
refer individually to the name and value of the resistor and 
also to each of the two connections to the nodes. The ability 
to name items within a bead is provided by the AED "component" 
declaration statement and the $=$ assignment operator. Assume 
that a bead representing a resistor is to have the following 


format: 


GRAPHSYS Correlation Word 


TYPE 


"From" Node 


"To" Node 


Resistor Value 


To indicate that each bead would have this layout, one would 
first have to decide to use mnemonics such as TYPE, FROM, INTO 
and VAL for words 1-4 of the bead. These names would then be 
used in the declaration statements: 

INTEGER COMPONENT TYPE $, 

REAL COMPONENT VAL S, 


POINTER COMPONENT FROM, INTO §$, 
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Note that unlike arrays, each component of a bead can have a 
different type. 

In order to use a component one must indicate in which 
bead the component is to be found, since there will be many 
similar beads all representing resistors. The pointer re- 
turned by the callto FREE uniquely identifies the bead in 
which a component is located; the AED notation to assign a 
value to VAL in the bead whose pointer is P would be 

VAL (P) = 7.2 $, 

(This is read "Val of P equals 7.2".) 

Obviously the system must know which word in the bead 
pointed to by P the user considers to be VAL; this assignment 
is carried out by the $=$ operator which is evaluated at compile 
time. To set VAL to be the 4th word in all resistor blocks, one 
would insert the statement 

VAL $=$ 4 $, 
in the program following the statement where VAL was declared 
to be a component. At execution time the expression VAL (P) = 
7.2 $, is evaluated as "take the location given by the pointer 
P, add 4 to it and store 7.2 in that location." 

Character strings are manipulated in AED by the use of 
the .C. operator and pointers. For example, the statement 

PTR = .C. /MESSAGE/ S, 
will result in PTR being a pointer to a bead containing the 


number of characters and the text in the following format: 


(Number of Characters) 


PTR 


PTR can therefore be stored in a data structure which has been 
designed without considering the maximum number of characters 
in the text string. 

A powerful feature of the AED language is the use of 
phrase substitution, which permits substituting for a variable 
any construct whose value agrees in type with the variable. 
For example, suppose a programmer wants to set P_ to be the 
square root of A and transfer to statement label SOLVE if the 
square root is positive. In AED he could write this in one of 
two forms 

P = SQRT (A) 5S, 

IF P GRT OQ. THEN GOTO SOLVE $, 
or by using phrase substitution 

IF (P=SQRT (A)) GRT 0. THEN GOTO SOLVE S$, 

The latter case allows the compiler to generate slightly more 
efficient code. A statement involving phrase substitution can 
always be simplified by writing out each step in turn, starting 
with the innermost set of parentheses. 

Nested AED procedure calls are used frequently in the 


sample program; for example, to plot an invisible line of 


Be 


length Ax = 50, Ay = -50 one writes 

PLOT (INVIS (LINE (50,-50))) §$, 
which corresponds to 

PTR = LINE ( 50,-50) §, 
where PTR is a pointer to the object representing the desired 
line, followed by 

PTR = INVIS (PTR) §, 

PLOT (PTR) S$, 

INVIS modifies the line command rather than making a new copy. 
All of the procedures in GRAPHSYS which manipulate display 
objects and which are valued procedures have a pointer as their 
value. 

Other features of AED which are likely to be confusing 
have been commented upon in the program listing. It is hoped 
that the following set of flow diagrams and the comments in 
the program will make the program meaningful to anyone seriously 


interested in the details of its operation. 
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MAIN PROGRAM LOOP 


INITIALIZE GRAPHSYS AND ARDS PROGRAM 
INITIALIZATION 
GET POSITION OF FIRST NODE AND PLOT 
DISPLAY FIRST LIGHT BUTTON MENU 
REDRAW $ |IS PICTURE TO BE ERASED AND REDRAWN? 
YES NO 


ERASE SCREEN 


IS A DEVICE BEING DEFINED 
OR EDITED? 


PICTURE 
MAINTENANCE 


DISPLAY DEVICE AND LIGHT 
BUTTONS FOR DEVICE 
DEFINITION OR EDITING 


DISPLAY MAIN CIRCUIT 
AND LIGHT BUTTONS FOR 
MAIN CIRCUIT _ 


GET e PENSEE $| 5+ A PENSEE FROM USER 


GRAPHIC 


INPUT 
WAS A LIGHT BUTTON SEEN? HANDLING 


GOTO YES NO 


LIGHT «BUTTON 


RECORD NAME, POSITION 
(BUTTON NUMBER) 


OF OBJECT SEEN 
AR = 
PROCESS BUTTON 
ae 
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Process Buttons 
HORES, HOCAP, HOSHT 


' Create Horizontal Create horizontal Create horizontal 
HORES +esistor bead OCAP capacitor bead OSHT short bead 


Find nearest node to last 
HORIZ $ pensee 


Find or define node at next 
horizontal grid position ' 
Connect element to nodes 

and nodes to element 
Increase count of leads 
from both nodes 
Get name and value for 
resistor or capacitor 
Plot picture of element at 
proper x, y position 


Goto GET.PENSEE 


ALL $ 


VERES VECAP VESHT 


Create vertical Create vertical Create vertical 
resistor bead capacitor bead short bead 


Remainder of flow 1 
diagram same as | 

| for buttons | 
above, except, PEPESCe it 
| 


| "horizontal" by 
W 


GETNODE(XX, YY) 


Find or create Node bead at (XX, YY) 


Start searching Node chain at Nodel 
Is this end of the chain? 


Is this node at (XX, YY)? 


No 


Step to next node on chain 


Create node bead 


AGAIN $ 


Set its coordinates 
to XX, YY 


Initialize node 
to have no attached 
elements 


Get a Name for it 


Add picture of node 
at (XX, YY) to 
display file 


(a device may be 
found replacing 
a node on the chain) 


Return pointer to node 


Append it to node chain 


-0OS = 
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PROCESS DELETE BUTTON 


WHAT TYPE OF ITEM WAS SEEN? 


ELEMENT NODE OR DEVICE 
CALL DELETE TO DELETE 
ELEMENT 
NUMBER OF LEADS ON 
“FROM” NODE=0? 


CALL RMVNOD TO 
DELETE NODE 
OR DEVICE 


DELET $ 


FOR EACH ATTACHED ELEMENT 
PERFORM OPERATIONS 
FOR DELETING ELEMENTS 


CALL RMVNOD TO DELETE 
THE NODE OR DEVICE 


NUMBER OF LEADS ON 
“TO” NODE=0? 


CALL RMVNOD TO 
DELETE THE NODE 
OR DEVICE 


GOTO REDRAW$ 


~52- 


DELETE (ELEMENT, FROMNODE, TONOD£) 


Delete an element connected between F ROMMNODE and TONODE 


| Does element to be deleted exist? 


41 Y-es 


Find the Node or device at each end of element | 


Remove picture of element from display file 


If picture is not to be » 


| redrawn, plotan X | 
| over deleted element _ 


| Return element bead to free storage | 


Disconnect element from nedes | 


Reduce count of leads for nodes ' 
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Procedure RMVNODE (NODE) 
Delete a node from the data structure and display file 


Is node first one in node chain 
(i.e. , NODE1)? 


not 
Find node (or device 
usage) bead on node 
chain . 


Delete node bead from 
data structure ee 


Remove node (or device) 
from display file 


error 
return 


Plot an X over element 
on screen if picture 
is not to be redrawn 


Return node bead 
to free storage 
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Process Button DEF. DEVICE 


Get position for NODE] for device, 
call GETNODE 
Display light button menu for 
Device Definition mode 
Make device definition bead point 
to NODE 1 
GOTO GET. PENSEE 


Process Button EDIT. DEVICE 


EDIT. DEVICE $ Request name of device to be edited 


Search device definition list for 
name typed by user 


y 
Y No 
Display the device 
(call the subpicture) 
Set flag to indicate 
device editing mode 
Set NODE 1 to be first 
node for device 
Display light buttons 
for device editing mode 


Output error message 


GOTO GET. PENSEE 
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Process Button TERM. DEVICE 


Is device being defined or edited? 


defined edited 


TERM. DEVICE $ 


Reset device editing 
mode flag 


Reset device definition 
mode flag 


Request name for device 


Allow user to select 
symbol style to represent 
the device 


Remove call to subpicture 


for device from display file 


Request relationship 
between terminal nodes in 
device and leads on symbol 


Terminate subpicture 
Generate light buttons for 
operations on main circuit 


Display light buttons and main 
circuit at point it was prior 
to beginning of device editing 


or definition 


abee 


Process Button USE. DEVICE 


Request name for device to be used 
Search device definition list for name 


USE. DEVICE $ 


Generate error message 


Allow user to select 
box style with correct 
rotational orientation 


Does box style have 
leads at all places 

where elements are 
already attached to 
the node? 


Generate error message 


Change node bead toa 
device usage bead by 
altering TYPE and 
storing pointer to 
device definition 
bead 


Add box representing 
device to display 
file at node position 


GOTO REWRITE 


IX. 
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PRINCIPAL LIMITATIONS OF THE SAMPLE PROGRAM 


The limitations inherent in the sample program are 


probably obvious to anyone familiar with circuit design. 


Several restrictions are basic to the program design: 


l. 


The circuit must be laid out on a fixed rectangular 


grid, and circuit elements may be attached only between 


neighboring grid positions. An arbitrary layout of 
elements is desirable; in the program components may 
not be arbitrarily located, rotated or scaled on the 
grid. 


Circuits larger than those that can be displayed on 
the screen at one time cannot be constructed; a 


"windowing" capability is required. 


The data structure used by the problem cannot use 
secondary storage, thereby also restricting the size 
of the circuit that can be designed. 


The technique for performing correlation assumes that 
any of the data which might correspond to a pensee is 


in core. 


The treatment of devices is very crude in several 
respects: 
a. Devices should be able to have an arbitrary, 
user-designed symbol used as their circuit re- 


presentation. 


b. A device should have an arbitrary number of leads 


by which it can be connected, not the maximum of 
four imposed by the grid layout. 

c. The leads of a device should be identified, and 
the user asked to indicate how each lead should 
be connected. When the device is being placed 
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upon a rectangular grid, the present program 
assumes certain attachments when others are 
specified. The selection of the proper orien- 
tation of an arbitrary symbol for a device, 
including reflections, translations and rotation, 


is difficult. 


6. The program contains no analysis programs nor does it 
store more than a trivial amount of numeric data of 
the type needed by analysis programs. 


If all of these restrictions were removed, the program list- 
ing would probably triple in size, at least. A more useful 

system is AEDNET, a large subsystem for analyzing non-linear 
networks, which is described in references 9 and 10. It was 


written using AED and GRAPHSYS and has restrictions 1,2,3,5 


and 6 removed. 
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LISTING INDEX 
Contents 

Declaration statements for first compilation 
Compile time declarations 
Procedure MAKEPICS 
Program initiglization 
Procedure definitions 

INITBUT (p.67) 

GET.ITEM (p.68-69) 

ERROR (p.69) 

GETNODE (p.70) 

BUTTONS (p.71) 


Picture maintenance (ERASE AND REDRAW light 
button); graphic input processing 


DELETE liyht button 

Procedure DELETE 

Procedure RMVNOD 

CHANGE VALUE, HORIZONTAL RESISTOR light buttons 
VERTICAL RESISTOR, HORIZONTAL and VERTICAL 
CAPACITOR, HORIZONTAL AND VERTICAL SHORT 
light buttons. AUTO ERASE ON/OFF light 
buttons. 

DEFINE DEVICE light button 

TERMINATE DEVICE light button 

USE DEVICE light button 

EDIT DEVICE light button 

Procedure FIXEND, NEARNODE, INITARDS 
Procedure NAMEELEM,NAMENODE 


Declaration, for second compilation 
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87-94 Procedures BOXES (p.87), CHOICE(p88-90), 
TRMNLS (p.91), SAMPLE.BOX (p.92), 
MAKEBOX( p.93-94) 


BEGIN 


COMMENT ALL STATEMENTS BEGINNING WITH 'COMMENT® ARE COMMENTS. IN LINE REMARKS MAY ALSO BE INSERTED AT ANY POINT 
IN THE LISTING BY PRECEEDING THEM WITH 3 PERIODS AND FOLLOWING THEM BY 2 SLASHES OR THE USUAL STATEMENT 
DELIMETER, A $ FOLLOWED BY A COMMA.$, 


COMMENT DECLARATIONS OF ALL ENTEGER VARIABLES» EXCEPT COMPONENTS $, 

INTEGER BUTTON.PUSHsBUT. TYPE sBUT SIZE, CAPACITOR, CAPSZ,DEFINITION.SEZE,DEVICE. TYPEyEND.OF. SUBPIC.DEF eGRIDSPyIs 
MENU1,MENU2,N,NBUT »NEED. ABPOS, NEED. CHARS,» NEED. PENSEEs NEED. VALUE, NODE, NODESZ»NOTBUT »PENSEE sRESISTOR,RESSZsSHORTs 
SHTSZsXSEEN,YSEEN $y 

INTEGER ARRAY NUMBER.OF.OCCURRENCES(2) $y 


COMMENT DECLARATIONS OF BOOLEAN AND REAL VARIABLES $¢ 
BOCLEAN DEFINITION. MODE ,EDITING. DEFINITION, ELEMENT. DELETED, ILLEGAL. ATTACHMENT ,NODE.CREATEDsREDRAW.MODE $y 
REAL RVAL $y 


COMMENT DECLARATION OF ALL POINTER VARIABLES, EXCEPT COMPONENTS $y, 

POINTER AODED.ELEMENT ,BEGIN.DEVICE.CHAIN, BOKS 1, BOKS2, BOKS3, BOKS4, BOX1,80X2_,B0X3 »BOX4, BOXS »BOX6 yBGXT py BOX8 » BOX, 
BOX10,BOX1L1L,BOX.STYLE,BT.EDIT,8T.DEFINE, BT eTERMs CREATED.NODE, DEFINITION.POINTER DEVICE ,ELEMePIC,EMPTY, 
END-eOFe-DISPLAYeFILE yEXsFBUT »FORBIDDEN-LEADs FROMNODE,? HCAP p HRES» HSHT»s INPUT. TEMs I TEMsLASTDEF pLASTSEE »LBUT, 
MAIN.FILEsNODE1,NODE.~PIC »NODEPT »OBSNyg Py Ply P2_P3_P4,PREVePTRePT EDIT, PT DEF INE» PT ~- TERM» RBOX,STORE~«NODE»sSUBy 
THIS, TONODE, USAGE,» VCAP,VRESsVSHT $e 


COMMENT DECLARATION OF ALL NON-VALUED PROCEDURES (SUBROUTINES) WRITTEN AS PART OF CASE STUDY AND DEFINED IN SUBSEQUENT 
PAGES OF THE NOTES. $y 
PROCEDURE BOXESyBUTTONS,DELETE,DELET.~ELEMENT, ERROR» FIXEND, GET ITEMs INI TARDS INI TBUT sMAKEPICS,RMVNODsTRMNLS $, 


COMMENT DECLARATIONS OF ALL VALUED PROCEDURES (FUNCTION) WRITTEN FOR CASE STUDY. $y 

COMMENT AN INTEGER PROCEDURE HAS AN INTEGER AS ITS VALUE (1-Ee, IS AN INTEGER FUNCTION) $, 
INTEGER PROCEDURE ISBUTT $y 
POINTER PROCEDURE CHOICE,GETNODE,NAMEELEM,NAMENODE,NEARNODE $y 


COMMENT DECLARATION OF ALL PROCEDURES FROM GRAPHSYS LIBRARY $y» 
PROCEDURE ADDOBJ,DEFOBJ,DISPLAY,ERASER»PENCHK,PENDLT,SGNONsRMV $e 
POINTER PROCEDURE CALL sCPYOBJ,DEFSUB, DOTTED, ENDOBJ, ENDSUBs INVES, LASTOBJsLINePENSNSs PLOT yRPL»SETPTeTEXT $y 


COMMENT SYSTEM SUPPORT PROCEDURES $y 
PROCEDURE FRETeGOUT»CHNCOM,COMPAR $y 
POINTER PROCEDURE COPYC,FREE,NUMTOC $3 


COMMENT FOLLOWING PORTION OF PROGRAM IS DECLARATION OF COMPONENTS FOR ALL BEADS $, 


COMMENT COMPONENTS COMMON TO SEVERAL BEADS $y, 

; INTEGER COMPONENT TYPE $y 
TYPE $=$ 1 eee TYPE ALWAYS IS ONE WORD FROM THE TOP OF A BEAD $y, 
POINTER COMPONENT NAME $, 
NAME $=$ 4 S$, eee NAME ALWAYS IS 4 WORDS FROM THE TOP OF A BEAD $, 


tas) 


COMMENT DECLARATIONS FOR NODE AND DEVICE USAGE BEADS. THE 2 BEADS ARE THE SAME EXCEPT FOR THE EXTRA COMPONENT IN THE 
OEVICE USAGE BEAD. TYPE = 0 FOR NODE BEAD, TYPE = 4 FOR DEVICE USAGE BEAD. $, 


INTEGER COMPONENT LEADS eee NUMBER OF LEADS ATTACHED $y, 
LEADS $=$ 2 $, 
POINTER COMPONENT NEXT eee POINTER TO NEXT NODE BEAD $+ 


NEXT $=$ 3 $o 
COMMENT NAME IS 4TH COMPONENT $y, 


POINTER COMPONENT U eee POINTER TO UP ELEMENT BEAD $y 

U $=$ 5S S$, 

POINTER COMPONENT L eee POINTER TO LEFT ELEMENT BEAD $, 

L $=$ 6 $, 

POINTER COMPONENT R eee POINTER TO RIGHT ELEMENT BEAD $y 

R $=$ 7 $s 

POINTER COMPONENT D eee POINTER TO DOWN ELEMENT BEAD $, 

D $=$ 8 $, 

INTEGER COMPONENT X eee X COORDINATE ON SCREEN OF NODE OR SYMBOL REPRESENTING DEVICE 
USAGE $, 

X $=$ 9 $y 

INTEGER COMPONENT Y eee CORRESPONDING Y COORDINATE $,» 

Y $=$ 10 $, 

POINTER COMPONENT DEF.PTR eee THES COMPONENT, WHICH EXISTS ONLY FOR DEVICE USAGE BEADS, IS 


A POINTER TO THE DEVICE DEFINITION BEING USED $y 
DEF.PTR $=$ LL $y 


COMMENT DECLARATIONS FGR RESISTOR, CAPACITOR AND SHORT BEADS, TYPE = 1 FOR RESISTOR, = 2 FOR CAPACITOR, = 3 FOR SHORT. $, 


POINTER COMPONENT FROM eee POINTER TO NODE FROM WHICH ELEMENT IS ATTACHED $y 
FROM $=$ 2 $e 
POINTER COMPGNENT INTO ese POINTER TO NODE TO WHICH ELEMENT IS ATTACHED $s 


INTO $=$ 3 $s 


COMMENT RESISTOR AND CAPACITOR BEADS ALSO HAVE NAME AND VALUE COMPONENTS $, 
REAL COMPONENT VAL eee VALUE OF RESISTANCE OR CAPACITANCE $y 
VAL $=$ 5 eee THIS COMPONENT IN A USEFUL SYSTEM MIGHT BE A POINTER TO A 
PROPERTY LIST CONTAINING A VARIETY OF INFORMATION REQUIRED BY 
ANALYSIS PROGRAMS $, 


COMMENT DECLARATIONS FOR DEVICE DEFINITION BEADS. THE FIRST 2 WORDS ARE RESERVED FOR THE GRAPHSYS CORRELATION WORDS. 
IN NODEs RESISTOR, CAPACITOR AND SHORT BEADS, ONLY A SINGLE WORD IS REQUIRED AS THESE OBJECTS DO NOT INVOLVE A 
SUBPICTURE DEFINITION OR CALL S$, 
INTEGER COMPONENT STYLE eee CODE FOR STYLE OF SYMBOL TO BE USED TO REPRESENT THE DEVICE $, 
STYLE $2$ 2 $, 


COMMENT THERD COMPONENT, NEXT, POINTS TO NEXT DEVICE ON CHAIN IN SAME WAY NEXT POINTS TO NEXT NODE ON NODE CHAIN. 
FOURTH COMPONENT IS DEVICE NAME $y 


POINTER COMPONENT FSTNODE eee POINTER TO FIRST NODE IN EQUIVALENT CIRCUIT FOR DEVICE $,» 
FSTNOOE $=$ 5 $, 
INTEGER COMPONENT NUM eee NUMBER OF USAGES OF THE DEVICE. IT IS USED TO CREATE A UNIQUE 


NAME FOR EACH USAGE BY CONCATENATING THE NAME WITH NUM. $+ 

NUM $=$ 6 $, 

POINTER COMPONENT TRMNL1 eee POINTER TO FIRST TERMINAL NODE BEAD IN DATA STRUCTURE FOR 
EQUIVALENT CIRCUIT $, 

TRMNLL $=$ 7 $y 

POINTER COMPONENT TRMNL2,TRMNL3—TRMNL4 eee POINTERS TO OTHER TERMINAL NODE BEADS $y, 

TRMNL2 $$ 8& $y 

TRMNL3 $=$ 9 So 

TRMNL4 $=$ 10 $, 


£9 


COMMENT DECLARATION OF BEADS RETURNED BY GET.ITEM FOR GRAPHIC INPUT ITEMS $, 


INTEGER COMPONENT XX 

XX $=$ 0 $, 

INTEGER COMPONENT YY 

YY $=$ 1 $, 

POINTER COMPONENT OBJECT.NAME 


OBJECT.NAME $=$ 2 


COMMENT COMPONENT DECLARATIONS FOR BEADS CREATED FOR 
COMMENT LIGHT BUTTON BEAD ALSO HAS TYPE CODE IN THE 
FIRST WORD IS THE GRAPHSYS CORRELATION WORD 
INTEGER COMPONENT NUMBER $- 
NUMBER $=$ 2 


eed 


eee X POSITION OF CURSOR $y 
eee Y POSITION OF CURSOR $y 


eee POINTER TO CORRELATION WORD, IF A *PENSEE* WAS DETECTED. 

USER MUST HAVE RECORDED CORRESPONDENCE BETWEEN THIS POINTER AND 

AN OBJECT IN HIS DATA STRUCTURE. IN THIS PROGRAM THE 
CORRESPONDENCE IS IMPLEMENTED BY HAVING THE USER'S DATA BEAD BEGIN 
WITH THE CORRELATION WORD $, 

eee IF THE OBJECT RECEIVING A "PENSEE* WAS IN A SUBPICTURE, THE 
NEXT 2N POINTER COMPONENTS WILL CONTAIN POINTERS TO THE 
CORRELATION WORDS FOR THE N SUBPICTURE CALLS AND THE N 

SUBPICTURE DEFINITIONS, WHERE N IS. THE DEPTH OF SUBPICTURE 

NESTING $, 


LIGHT BUTTONS $, 
SECOND WORD, THE 
$s 


eee NUMBER ASSIGNED TO BUTTON IS IN THIRD WORD $,» 
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PRESET eee INITIALIZE CONSTANT VALUES AT COMPILE TIME // 

BEGIN 

ELEMENT.DELETED = 08 eee INDICATES AN ELEMENT WAS DELETED IN ORDER TO PLACE 
A NEW ELEMENT IN ITS POSITION. OB IS EQUIVALENT TO FALSE. $+ 

REORAW.MODE = OB eee INDICATES PICTURE IS TO BE REDRAWN AT NEXT OPPORTUNITY $y 

DEFINITION.MODE = OB eee INDICATES IF A DEVICE IS BEING DEFINED $, 

EDITING.DEFINITION = OB eee INDICATES IF A DEVICE IS BEING EDITED $, 

END.OF.SUBPIC.DEF = 0 eee CODE TO PROCEDURE DISPLAY TO INOICATE THE END OF A PARTIALLY 
COMPLETED SUBPICTURE $, 

MAIN-FILE = 0 eee CODE TO INDICATE THE PROGRAM IS WORKING IN THE MAIN DISPLAY 
FILE, RATHER THAN WITHIN A SUBPICTURE $y 

NOTBUT = 0 eee CODE TO INDICATE THAT THE MOST RECENT *PEN SEE" WAS ON AN 
OBJECT OTHER THAN A LIGHT BUTTON $, 

FORBIDDEN-LEAD = -1 eee CODE TO INDICATE THIS DIRECTION ON A DEVICE HAS NO LEAD 
AVAILABLE $y 

NUMBER.OF OCCURRENCES = 020,0 eee ARRAY USED TO STORE NUMBER OF OCCURRENCES OF NODES, 


RESISTORS, ANO CAPACITORS. USED TO GENERATE A UNIQUE NAME FOR 
EACH OCCURRENCE BY CONCATENATION OF NeR OR C WITH THE NUMBER OF 
OCCURRENCES FOR THE CIRCUIT ELEMENT $+ 


GRIDSP = 200 eee DISTANCE SETWEEN GRID POINTS AT WHICH NODES CAN EXIST $2 
NODE1 = 0 eee CODE TO INDICATE FIRST NODE 1S NOT YET DEFINED $, 
BEGIN.DEVICE.CHAIN = 0 ees CODE TO INDICATE NO DEVICES HAVE BEEN DEFINED $y 

EMPTY = 0 eee END OF CHAIN CODE ~- NULL POINTER $y 


COMMENT PRESET TYPE NUMBERS TO INDICATE BEAD TYPE $- 
NOGOE = O $s 
RESISTOR = 1 $e 
CAPACITOR = 2 $y 
SHORT = 3 $y 
DEVICE.TYPE = 4 $y 


COMMENT PRESET BEAD SIZES $y 


SHTSZ = 4 eee SHORT CIRCUT BEAD SIZE $+ 

RESSZ = CAPSZ = 6 eee SIZE FOR CAPACITOR AND RESISTOR BEADS $, 

NODESZ = 12 eee SIZE FOR NODE AND DEVICE USAGE BEADS $+ 

DEFINITION.SIZE = 11 eee SIZE FOR DEVICE DEFINITION BEADS $+ 

MENUL = 1 eee CODE TO INDICATE FIRST SET OF LIGHT BUTTONS SHOULD BE USED $, 

MENU2 = 2 eee CODE FOR SECOND SET OF LIGHT BUTTONS —- USED ONLY WITH DEVICE 
DEFINITIONS $y 

BUT.TYPE = 5 eee CODE FOR A LIGHT BUTTON BEAD $, 

BUT.SIZE = 3 eee LENGTH OF A LIGHT BUTTON BEAD $, 

NEED.PENSEE = 1 eee CODE TO INDICATE INPUT ITEM MUST BE A PENSEE $, 

NEED.ABPUS = 2 eee CODE TO INDICATE CURSOR ABSOLUTE COORDINATES REQUIRED $, 

NEEDeCHARS = 3 eee CODE TO INDICATE CHARACTER STRING REQUIRED $y 

NEED.VALUE = 4 eee CODE TO INDICATE REAL NUMERIC VALUE REQUIRED $5 

END $e 


SWITCH LIGHT.BUTTON = DELET,NEWVAL »HORES,» VERES » HOCAP» VECAPs HOSHT >» VE SHT »ER SONS ER SOFF sREWRITE sEXIT»USE.DEVICE? 

TERM.DEVICE,DEF.DEVICEeEDIT.DEVICE ee DECLARE ARRAY OF STATEMENT LABELS CORRESPONDING TO PRINCIPAL 
FUNCTIONS OF THE PROGRAM. ‘*SWITCH*® DECLARES LIGHT.BUTTON TO BE A 
A STATEMENT LABEL ARRAY OF 16 ELEMENTS $y 
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COMMENT DEFINITION OF PROCEOURE MAKEPICS. PROCEDURES CAN BE DEFINED AT ANY POINT IN AN AED PROGRAM, BUT THEY WILL NOT 
BE EXECUTED UNTIL THEY ARE CALLED. MAKEPICS IS USED IN THE INITIALIZATION PHASE OF THE PROGRAM TO BUILD THE 
PICTORIAL REPRESENTATION OF NODES» RESISTORS»: CAPACITORS, AND SHORTS $, 


DEFINE PROCEDURE MAKEPICS(EX,NODEPT,HRESsVRESyHCAP»VCAPyVSHT»HSHT) WHERE POINTER EXyNODEPT sHRES »VRESsHCAPsVCAPy 
VSHT»HSHT TOBE 
eoe MAKEPICS DEFINES THE COMPOUND DISPLAY OBJECTS REQUIRED TO 
PLOT ALL THE ELEMENTS TO BE DISPLAYED // 


BEGIN eoe FIRST DISPLAY OBJECT IS AN X TO BE DISPLAYED OVER DELETED 
ELEMENTS // 
DEFOBJ(} ece BEGIN OBJECT DEFINITION. DEFOBJ HAS NO ARGUMENTS BUT () INDICATES 
THAT IT IS A PROCEDURE CALL. $y 
ADDOBJ (INVES (LIN(-40540))) eee INVISIBLE LINE WITH: X ENCREMENT = -409Y INCREMENT = 40 $y, 
ADDOBJ(DOTTED(LIN(80,-80))) eee DOTTED LINE WITH X INCREMENT = 80, Y INCREMENT = -80 $, 


ADDOBJCINVIS(LIN(I-80,0))) $, 

ADDOBJ(DOTTEDILIN(80+80))) $y 

ADDOBJ(INVIS(LIN(-40,-40))) $, 

EX = ENDOBJ() eee END DISPLAY OBJECT DEFINITION»NAME IS EX $y 
DEFOBJ() $, 

ADDOBJCINVIS(LIN(5s5))) $y 

ADDOBJS(LIN(O9-10)) eee VISIBLE LINE WITH X INCREMENT = O¢ Y INCREMENT = -10 $y 
ADDOBJ(LIN(-10:0)) $, 

ADDOBJ(LIN(0,10)) $, 

ADDOBJ(LIN(1090)) Sy 

ADDOBJ(INVIS(LIN(-7,20))) $, 

NODEPT = ENDOBJ() eee DISPLAY OBJECT FOR A NODE,NAME = NODEPT $, 
DEFOBJ() $, 

ADDOBJ(LIN(6050)) $y 

‘ADDOBJ(LIN(10,10)) $, 

ADDOBJILIN(209-20)) $y 

ADDOBJ(LIN(20,20)} $, 

ADDOBJI(LIN(20,-20)) $, 

ADDOBJ(LIN(10,10)) $, 

ADDOBJ(LIN(60,0)) $, 

ADDOBJCINVIS(LIN(-100,40))) $, 

HRES = ENDOBJ() eee DISPLAY OBJECT FOR A HORIZONTAL RESISTOR,NAME = HRES $y 
OEFOBJ() $+ 

ADDOBJILIN(0,-60)) $y 

ADDOBJ{(LIN(10,-10)) $, 

ADDOBJ(LIN(-20,5~20)) $, 

ADDOBJILIN(20;-20)) $, 

ADDOBJILIN(-205-20)) $5 

ADDOBJ(LIN(10.-10)) S$, 

ADDOBJILIN(0s-60)) $, 

ADDOBJCINVIS(LIN(40,100))) $y : 

VRES = ENDOBJC) ; eee DISPLAY OBJECT FOR A VERTICAL RESISTOR»NAME = VRES $e 
DEFOBJ() $y 

ADDOBJ(LIN(9020)) $y 

ADDOBJ(INVIS(LIN(0920))) $y 

ADDOBJILIN(0+-40)) $y 

ADDGBJCINVIS({LIN(20,0))) $y» 

ADDOBJ{(LIN(0s40)) $+ - 

ADDOBJ(INVES(LIN(0»-20))) $y 

ADDOBJ(LIN(9090)) $s 

ADDOBJ(INVIS(LIN(-100240))) $y 

HCAP = ENDOBJ() eee DISPLAY OBJECT FOR A HORIZONTAL CAPACITORsNAME IS HCAP $, 
DEFOBJ(). $s 

ADDOBJILIN(0.-90)) $y 

ADDOBJ(INVIS({LIN(20,0))) $s 

ADDOBJ(LIN(-401;0)) $y 

ADDOBJCINVIS(LIN(0,-20))) $s 


99 


ADDOBJILIN(40,0)) $s 
ADDOBJLINVIS{LIN{(-20,0))) $, 
ADDOBJILIN{0,-90)) $y 


ADDOBJ(INVIS{(LIN(40,100))) $, 

VCAP = ENDOBJ() eee DISPLAY OBJECT FOR A VERTICAL CAPACITOR, NAME=VCAP $y, 
HSHT = LIN(200,0} eee DISPLAY OBJECT FOR HORIZONTAL SHORT »NAME = HSHT $e 
VSHT = LIN(0»-200) eee DISPLAY OBJECT FOR A VERTICAL SHURT,NAME = VSHT $y 
END $, 


COMMENT END TERMINATES THE DEFINITION QF PROCEDURE MAKEPICS. $y 
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COMMENT THE EXECUTABLE PART OF THE PROGRAM BEGINS HERE. THE FOLLOWING SECTION OF THE PROGRAM PERFORMS A VARIETY OF 


INITIALIZATION TASKS $y 
INITAROS() eoe INITIALIZE GRAPHSYS AND ARDS TO RECEIVE GRAPHIC INPUT $, 


MAKEPICS(CEX sNODEPT gHRESs VRES eHCAP ys VCAP,VSHT »HSHT) 222 CALL PROCEDURE MAKEPICS, WHICH IS DEFINED ABOVE, TO MAKE THE 
DISPLAY OBJECTS REPRESENTING ELEMENTS AND NODES. ARGUMENTS ARE 
POENTERS TO THE DISPLAY OBJECTS GENERATED. THESE OBJECTS CAN 
LATER BE ADDED TO THE DISPLAY FILE USING PROCEDURE PLOT $, 

INITBUTCFBUT,LBUT) eee CALL TO INITBUT, WHICH IS DEFINED BELOW, TO GENERATE DISPLAY 
OBJECTS FOR ALL LIGHT BUTTONS TO BE USED ON BOTH LIGHT BUTTON 
MENUS. POINTER TO THE CORRELATION WORD FOR THE FERST BUTTON IS 
FBUT AND FOR THE LAST BUTTON IS LBUT. LBUT IS NOW THE LAST ITEM 
IN THE DISPLAY FILE «. $s 

END»OFeDISPLAY.FILE = tBUT eee USED TO RECORD WHAT IS THE LAST OBJECT IN THE DESPLAY FILE SO 
OBJECTS CAN ALWAYS BE ADDED AT THE END OF THE DISPLAY 
FILE RATHER THAN WITHIN IT. $» 

GET.ITEM(.C. /ENDECATE POSITION CF INITIAL NODE OF MAIN CIRCUIT/,INPUT.ITEMyNEED.ABPOS) «2-2 CALL PROCEDURE 
GET.ITEM, WHICH IS DEFINED BELOW, TO GET POSITION WHERE FIRST 
NODE ES TO BE DRAWN BY READING THE CURSOR COORDINATES. 
INPUT.ITEM POINTS TO A BEAD WHICH WILL RECEIVE THE XY CURSOR 
COORDINATES $5 

LASTSEE = NQDEL = GETNODE(XXCINPUT.ITEM) sYYCINPUT.ITEM)) 2.2. GETNODE FINDS THE NEAREST GRID POSITION TO THE 
CURSOR AND RETURNS A POINTER TO THE NODE BEAD BUILT $, 

BUTTONS (MENU1 } eos SETUP FIRST SET OF LIGHT BUTTONS BY REMOVING FROM THE DISPLAY 
FILE THOSE BUTTONS THAT ARE RELEVANT ONLY WHEN DEVICES ARE BEING 
DEFINED. $+ 

DISPLAY) eee DESPLAY THE LIGHT BUTTONS AND THE FIRST NODE. S$, 


COMMENT PROCEDURE INITBUT,GET.ITEM,GETNODE, AND BUTTONS USED ABOVE ARE DEFINED IN THE NEXT SECTION OF THE 
LISTENG. FOLLOWING THE PROCEDURE DEFINITIONS, THE MAEN PROGRAM IS CONTINUED. S$» 
GOTO GET.PENSEE eee TRANSFER FO PORTION OF PROGRAM HANDLING GRAPHIC INPUT. $5 


89 


DEFINE PROCEDURE INITBUT(FBUT,LBUT) WHERE POINTER FBUT,LBUT TOBE 
BEGIN eee INITBUT BUILOS THE LIGHT BUTTON DATA STRUCTURE AND ADDS THE 
LIGHT BUTTONS TO THE DISPLAY FILE // 


DEFINE POINTER PROCEDURE MAKEBUT(NAME,NBUT) WHERE INTEGER NBUT §, 
POINTER NAME TOBE 
eee MAKEBUT CREATES A BEAD FOR A LIGHT BUTTON AND ADOS THE TEXT FOR 
IT TO THE OISPLAY FILE. MAKEBUT IS AN INTERNAL PROCEDURE OF INITBUT // 


BEGIN 

POINTER P $y 

P = FREE (BUT.SIZE) eee GET BUTTON BEAD FROM FREE STORAGE $y 

TYPE(P) = BUT.TYPE eee PUT BUTTON TYPE INTO BEAD $y 

NUMBER(P) = NBUT eee BUTTON NUMBER TO BE RETURNED AS CODE WHEN A PENSEE OCCURS ON 


THE BUTTON $, 

MAKEBUT = PENSNS(PLOT(TEXTI(NAME) »P)) eee ADD TEXT OF LIGHT BUTTON TO DESPLAY FILE AS PEN SENSITIVE 
WITH NAME P, THE POINTER TO THE CORRELATION WORD FOR THE BUTTON 
AND ALSO THE POINTER TO THE SUTTON BEAD. $, 


END $» 
FBUT = PLOT(SETPT(250,500)) ece POINT AT X=250s Y=500 WHERE BUTTON TEXT WILL BEGIN $y 
MAKEBUT(.C. /DELETE/s1) eee WRITE BUTTON HAVING TEXT "DELETE® AND A BUTTON CODE OF 1 $y 


PLOT(SETPT(2504440)) $y 

MAKEBUT(.C. /CHANGE VALUE/s2) $» 

PLOT(SETPT(250%380)) $y 

MAKEBUT(.C. /HORIZ RESISTOR/,3) $, 

PLOT(SETPT(2509320)) $y 

MAKEBUT(.C. /VERT RESISTOR/ +4) $, 

PLOT(SETPT(250+260)) $y 

MAKEBUT(.C. /HORIZ CAPACITOR/,5) $y 

PLOT(SETPT(2503200)) $y 

MAKEBUT(.C. /VERT CAPACITOR/+6) $+ 

PLOT(SETPT(2505140)) $y 

MAKEBUT(.C. /HORIZ SHORT/»7) $» 

PLOT({(SETPT(250,80)) $, 

MAKEBUT(.C. /VERT SHORT/;8) $y 

PLOT(SETPT(250220)) $y 

MAKEBUT(.C. /AUTO ERASE ON/,9) $s 

PLOTCSETPTI(2502-40)) Sy 

MAKEBUT(.C. /AUTO ERASE OFF/+10) $y 

PLOT(SETPT(250s-100)) $» 

MAKEBUT(.C. /ERASE AND REDRAW/o11) $y 

PLOTISETPT(250,~160)) $y 

MAKEBUT(.C.w /QUIT/»12) $s 

PLOTI{SETPT(250%-220)) S$» 

MAKEBUT(.C. /ATTACH DEVICE/,13) $y, 

PT.TERM = PLOT(SETPT(250--280)) $, 

BT.TERM = MAKEBUT(.C. /TERMINATE/ +14) S$ 

PT-DEFINE = PLOT(SETPT(250.-340)) $y 

BY.DEFINE = MAKEBUT(.C. /DEFINE DEVICE/,15) S$» 

PT.EDIT = PLOT(SETPT(250,-400)) $, 

BT-EDIT = MAKEBUT(.C. /EDIT DEVICE/,16) $y 

LBUT = PLOT(SETPT(250,-460) } eee ALL BUTTONS ARE IN THE DISPLAY FILE BETWEEN OBJECTS FBUT AND 
LBUT S$, 

END $y 
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DEFINE PROCEDURE GET.ITEM(MSG,ITEM,CODE) WHERE POINTER MSGeITEM $s 
INTEGER CODE TOBE 
eee GET-ITEM WILL PRINT THE MESSAGE POINTED TO BY MSG AND WILL 
LOOK FOR AN INPUT ITEM OF THE TYPE GIVEN BY CODE. IF ONE IS 
FOUND, ITEM WILL BE THE POINTER TO IT UNLESS IT IS A NUMERIC 
VALUE, IN WHICH CASE ITEM WILL CONTAIN THE VALUE. THE ACTUAL 
INPUT IS HANDLED BY THE GRAPHSYS SYSTEM ROUTINE GETITM. // 
BEGIN 
BOOLEAN FIRST.TIME $y 
POINTER RBUFF $, 
INTEGER INPUT. TYPE sSTRINGsREAL.VAL» ABPOS » PENSEEs BUTTON.PUSH $y 
POINTER PROCEDURE ITMBUF $y 
PROCEDURE ERROR, ITMERR $y 
INTEGER PROCEDURE GETITM $, 
PRESET ; 
BEGIN eee PRESET CODES FOR ALLOWABLE INPUT ITEMS // 
FIRST.TIME = TRUE $, 
REAL.VAL = 2 $e 
STRING = 3 $y 
BUTTON.PUSH = 64 $, 
ABPOS = 65 $, 
PENSEE = 67 $y 
END $, 
IF FIRST.TIME 
THEN BEGIN 
RBUFF = ITMBUF{(10,5) $, eee ITMBUF OBTAINS AN INPUT BUFFER FROM FREE STORAGE DOF A SIZE 
SUFFICIENT TO HANDLE ITEMS OF UP TO 10 MACHINE WORDS AND PENSEES 
INVOLVING SUBPICTURES TO A DEPTH OF 5 CALLS. RBUFF IS A POINTER 
TO THE BUFFER // 
FIRST.TIME = FALSE $y 
END $-¢ 
START $ If COOE EQL NEED. PENSEE eee CALLING PROGRAM WANTS A PENSEE // 
THEN BEGIN 
‘ INPUT. TYPE = GETITM(MSG,ITEM,RBUFF,ITMERR) $, 22. CALL THE GRAPHSYS INPUT ROUTINE TO PRINT THE 
MESSAGE AND TO READ THE NEXT INPUT ITEM. ITMERR IS A PROCEDURE 
CALLED IF AN ILLEGAL ITEM IS FOUND. THE USER CAN PROVIDE HIS OWN 
VERSION OR USE,» AS THIS PROGRAM DOESe A STANDARD SYSTEM VERSION. 
ITMERR COULD PERFORM: ANY DESIRED ACTIONs INCLUDENG. CALLING AN 
EDITOR FO EDIT THE BUFFER’ CONTENTS. - INPUT. FYPE WILL BE SET TO 
CODE RETURNED 8Y GETITM TO SPECIFY WHAT IT FOUND // 
IF INPUT.TYPE EQL BUTTON. PUSH eee ONE OF THE BUTTONS ON THE GRAPHIC INPUT DEVICE WAS PUSHED, 
INDICATING A GRAPHIC INPUT ITEM IS TO FOLLOW // 
THEN BEGIN : ; i E “ 
INPUT. TYPE = GETITM(O0, ITEM, RBUFF,ITMERR) woe O AS EIRST ARGUMENT MEANS. NO MESSAGE IS TO BE 
PRINTED FO PROMPT USER // 
IF INPUT.TYPE EQL PENSEE 


THEN GOTO RETURN $, coe EXIT FROM PROCEDURE // 
END’ $, ‘ 
GOTO BADeINPUT $,- eee EXPECTED TYPE OF INPUT WAS NOT SUPPLIED // 
END $, . 
IF CODE EQL NEED.ABPOS eee CALLING PROGRAM WANTS A CURSOR POSITION // 
THEN BEGIN ; . : 


INPUT. TYPE = GETITM(MSG,ITEM,RBUFFsITMERR) $- 
IF INPUT. TYPE EQL BUTTON.PUSH 
THEN BEGIN 
INPUT. TYPE = GETITM(O, ITEM, RBUFF,ZITMERR) S$, 
IF INPUT.TYPE EQL ABPOS 
> THEN GOTO RETURN $e 
END $, 
GOTO BAD.INPUT $, 
END $y 


OL 


BAD-INPUT $ 


IF CODE EQL NEED.CHARS 


THEN BEGIN 


INPUT.TYPE 


eee CALLING PROGRAM WANTS A CHARACTER STRING // 


= GETITM(MSG,ITEM,»RBUFF,ITMERR) $, 


IF INPUT.TYPE EQL STRING 
THEN GOTO RETURN 
ELSE GOTO BAD.INPUT $y, 


END $y 


IF CODE EQL NEED.VALUE 


THEN BEGIN 


INPUT.TYPE 


eee CALLING PROGRAM WANTS A NUMERIC VALUE // 


= GETITM(MSG,ITEM,RBUFF,ITMERR) $5 


IF INPUT. TYPE EQL REAL.VAL 
THEN GOTO RETURN 
ELSE GOTO BAD.INPUT $, 


END 
ELSE BEGIN 


ITEM = 0 


eee PROCEDURE DOES NOT RECOGNIZE CODE PROVIDED BY CALLING 
PROGRAM. SET OUTPUT ITEM POINTER TO BE EMPTY // 
$e 


GOTO RETURN $, 


END $, 
ERROR(4) $,» 


GOTO START $+ 
END $y 


eee GIVE THE USER AN ERROR MESSAGE AND ALLOW HIM TO TRY AGAIN. 
THIS SECTION SHOULD BE EXPANDED IN A USEFUL SYSTEM TO GIVE THE 
USER A BETTER IDEA OF WHAT THE PROGRAM EXPECTS AND WHAT HE DID 
WRONG. // 


DEFINE PROCEDURE ERROR(PAR) WHERE INTEGER PAR TOBE 


BEGIN 

POINTER MSG $, 
PROCEDURE GOUT 
IF PAR EQL 1 
THEN MSG = .C. 
IF PAR EQL 2 
THEN MSG = .C. 
IF PAR EQL 3 
THEN MSG = .C. 
IF PAR EQL 4 
THEN MSG = .C. 
GOUTIMSG) $y» 
GOTO RETURN $y 
END $, 


$e 

/ATTEMPT MADE TO ATTACH ELEMENT TO NONEXISTENT LEAD OF A DEVICE...REQUEST IGNORED/ $, 
/REFERENCE MADE TO UNDEFINED DEVICE... REQUEST IGNORED/ $, 

JNO DEVICE ORTENTATION SPECIFIED..eTRY AGAIN/ S$» 


/BAD INPUT TYPE...TRY AGAIN/ $, 


TL 


COMMENT OEFINITION OF PROCEDURE GETNODE, WHICH IS USED ABOVE $, 


DEFINE POINTER PROCEDURE GETNODE(XXX,YYY) WHERE INTEGER XXXeYVY TOBE 
BEGIN 


COMMENT GETNODE RETURNS A POINTER TO NODE OR DEVICE USAGE BEAD AT (XXXeYYY) » CREATING A NODE IF NECESSARY. 


BEAD IS CREATED ONLY BY REPLACING A PREVEOUSLY DEFINED NODE $, 
P = PREV = NODEL eee START SEARCHING NODE CHAIN AT FIRST NODE, NODE1. 
PREVIOUS NODE ON CHAIN $y 


A DEVICE USAGE 


PREV RECORDS 


AGAIN $ IF P EQL EMPTY eee IS THIS END OF CHAIN. IF SOs NODE DOES NOT EXIST AT THIS GRID 


COORDINATE, SQ MUST CREATE ON THERE // 
THEN GOTO GET $» 


IF X{P) EQL XXX AND Y{P) EQt YYY eee SEE IF THERE IS ALREADY A NODE LOCATED AT THE GRID POSITION 
WHERE NODE IS NEEDED // 
THEN BEGIN 
GETNODE = P eee IF NODE OR DEVICE IS FOUND, GETNODE HAS AS ITS VALUE A 
POINTER TO THE NODE BEAD OR DEVICE USAGE BEAD $, 
NODE.CREATED = FALSE eoe SET FLAG TO INDICATE BEAD WAS FOUND ON NODE/DEVICE CHAIN. $y 
GOTO RETURN $y 
END $, 


PREV = P eee MOVE TO NEXT BEAD ON CHAIN, UPDATE P AND PREV $y 
P = NEXTIPREV) $, ; : 
GOTO AGAIN $, 


GET $ GETNODE = P = FREE {NODESZ) eee GET A NODE BEAD FROM FREE STORAGE $, 
NODE.CREATED = TRUE $e 
TYPE(P) = NODE ~ ets SET TYPE COMPONENT TO VALUE FOR NODE $, 
NEXT{(PREV) = P ese PUT NEW NODE AT END OF NODE CHAIN. $, 
NEXT(P) = EMPTY $5 
XUP)-= XXX - eee STORE AWAY NODE COORDINATES $, 
YEP) = YYY $y 
UEP) = D(P) = L(P} = REP) = EMPTY eee INDICATE NEW NODE HAS NO ATTACHMENTS $y 
LEADS(P) = 0 eee INITIALIZE NUMBER OF LEADS $, 
NAME(P) = NAMENODE() eee GET A NAME FOR THE NODE $,- 
DEFOBJ(). - ees DEFINE A DISPLAY OBJECT FOR THE NODE, USING THE NODE SYMBOL 


’ PREVIOUSLY DEFINED AS NODEPT, AND HAVENG SeHE USERS NAME, WHICH 


WAS JUST CREATED Ss 
ADDOBJ(SETPTUXXXsYYY)) S$» 
ADDOBJ(CPYOBJ{NODEPT)) $,» 
ADDOBJ{TEXT(NAME(P))) $,» 
NODE.PIC = ENOOBJI) $e 


END.OFsDISPLAY.FILE = CREATED.NODE = PENSNS{(PLOT(NODE.PIC,P,END.OF.DISPLAY.FILE)) «2. PLOT THE OBJECT 
REPRESENTING THE NODE AS PEN SENSITIVE AT THE END OF THE DISPLAY 


“FELE, WITH NAME P $,-- 
END $y 
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DEFINE PROCEDURE BUTTONS(MENU) WHERE INTEGER MENU TOBE : 
BEGIN ; eos THIS PROCEDURE MODIFIES THE GRAPHSYS DATA STRUCTURE TO ADD OR 
; DELETE LIGHT BUTTONS DEPENDING UPON WHAT THE USER IS DOING // 
BOOLEAN FIRST.TIME $y 
PRESET FIRST.TIME = TRUE $, 
COMMENT INITIALIZE VARIABLE TO INDICATE THIS IS THE FIRST TIME THE PROCEDURE WAS CALLED $0 THAT THE 
INYTEAL MENU, WHICH IS CORRECT» WILL NOT BE ALTERED. $+ 
IF MENU EQL MENUL eee SET OF LIGHT BUTTONS WHEN THE USER IS WORKING AT THE MAIN 
OISPLAY FILE LEVEL // 
THEN BEGIN 
RMV(BT. TERM) eee REMOVE TERMINATE BUTTON, AS OPTION IS MEANINGFUL ONLY WHEN A 
DEVICE 1S BEING DEFINED $, 
IF FIRST.TIME 
THEN BEGIN 
FIRST» TIME = FALSE $y 
GOTO RETURN $, 
END $¢ 
PENSNS(PLOT(TEXT(.C. /DEFINE DEVICE/) sBT.DEFINEsPTeDEFINE)) «2. ADD TO OISPLAY FILE THE TEXT FOR THE 
BUTTON. REMOVED WHEN USER ENTERED DEVICE DEFINITION MODE. AT THAT 
TIME THESE OPTIONS WERE NO LONGER RELEVANT. TEXT MUST BE PLOTTED 
IN. THE OISPLAY FILE AFTER THE OBJECT WITH NAME PT.OEFINE, THE 
SET POINT FOR THE BUTTON. THE BUTTON HAS THE NAME BT.DEFINE $y 
PENSNS(PLOT(TEXT(.C. /EDIT DEVICE/} sBTeEDIT»PTEDIT)) $y 
GOTO RETURN $, 


END $e 
IF MENU EQL MENU2 eee SET OF LIGHT BUTTONS USED WHEN DEFINING OR EDITING A DEVICE. // 
THEN BEGIN Z 

PENSNS(PLOT(TEXT(.C. /TERMINATE/) ,BT.TERM?PT.TERM)) S$ 

RMV(BT.DEFINE? ese THESE BUTTONS ARE NOT RELEVANT AT THIS TIME AS DEVICES CAN 


er ; NOT BE DEFINED WHILE EDITING OR DEFINING A DEVICE $+ 
RMVIBT.EDIT) S$» 

END S$» 
END $» 
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COMMENT MAIN EXECUTABLE PORTION OF PROGRAM FOLLOWS. 
ALTERS THE SCREEN DISPLAY AND WHICH RECIEVES 


REDRAW $ IF REDRAW.MODE 
THEN BEGIN 
REWRITE $ ERASER () 
IF EDITING.DEFINITION OR DEFINITION. MODE 


THEN BEGIN 
IF EDITING.DEFINITION 
THEN DISPLAY(DEVICE) 


ELSE DISPLAY(DEVICE,END.OF.SUBPIC.D 


DISPLAY (FBUT ,LBUT) 


END 
ELSE DISPLAY() 


END $» 
GET.PENSEE $ GETSITEM(OsINPUT. ITEM, NEED. PENSEE) 


NBUT = ISBUTT(INPUT.ITEM) 


IF NBUT EQL NOTBUT 
THEN BEGIN 
XSEEN = XX(ENPUTSETEM) 


YSEEN = YYCINPUT.ITEM) $¢ 
LASTSEE = OBJECT.NAME(INPUT.ITEM) 


GOTO GET.PENSEE 


END 
ELSE GOTO LIGHT.BUTTON(NBUT) 


DEFINE INTEGER PROCEDURE ISBUTT(PTR) WHERE PO 
BEGIN 


POINTER OBSN $, 

OBSN = OBJECT»~NAME(PTR) $-¢ 
IF TYPE(OBSN) EQL BUT.TYPE 
THEN ISBUTT = NUMBER(OBSN) 
ELSE ISBUTT = NOTBUT 

END $+ 


THE FOLLOWING SECTION IS THE BASIC LOOP GF THE PROGRAM WHICH 
GRAPHICAL INPUT $+ 


eee REGENERATE PICTURE IF NECESSARY // 


eee ERASE SCREENy LIGHT BUTTON TO ERASE AND REDRAW TRANSFERS HEREs $ 
eee IF EDITING GR DEFINING A DEVICE, SUBPICTURE DEFINITION IS 

BEING ALTERED AND ONLY REMAINDER OF DEFINITION SHOULD BE 

DISPLAYED, NOT THE ENTIRE DISPLAY FILE // 


eee PREVIQUSLY COMPLETED DEFINITION IS BEING EDITED, SO CALL THE 
SUBPICTURE FOR THE DEVICE. DEVICE IS THE NAME OF A SUBPICTURE 
CALL // 
EF) .-- SUBPICTURE HAS NOT BEEN TERMINATED IF IN DEFINITION MODE 
SO DEVICE 1S THE NAME OF THE FIRST OBJECT IN THE 
SUBPICTURE DEFINITION. THE OISPLAY FILE BETWEEN THIS OBJECT AND 
THE CURRENT END OF THE SUBPICTURE DEFINITION WILL BE DISPLAYED. $y 
eee ALL THE LIGHT BUTTONS IN THE OISPLAY FILE BETWEEN THE UBJECT 
WITH NAME FBUT AND THE OBJECT WITH NAME LBUT WILL BE DISPLAYED. $, 


eee DISPLAY WITH NO ARGUMENTS WILL CAUSE THE WHOLE DISPLAY FILE 
TO BE OUTPUT S$, 


eee THE FOLLOWING LOOP CONTINUOUSLY 

ANALYZES AND PROCESSES USER INPUT $, 

eee ISBUTT DETERMINES IF A LIGHT BUTTON HAS BEEN POINTED TO WITH 
THE GRAPHIC INPUT DEVICE. IF IT HAS, AN INTEGER *BUTTON NUMBER? 
IS RETURNED. IF NOT: A CODE OF O IS RETURNED TO INDICATE SOME 
OTHER TYPE OF GBJECT WAS SEEN. ISBUTT IS DEFINED BELOW $, 


eee GET FROM BEAD BUILT BY GET.~ITEM THE X POSITION OF THE GRAPHIC 
INPUT DEVICE $, 


eee LASTSEE IS SET TO THE NAME OF INPUT.ITEM SEENy IeEos THE 
FIRST ITEM IN THE DISPLAY FILE HAVING A PEN-SENSITIVE AREA 
WITHIN WHICH THE CURSOR COORDINATES LIE « THE NAME IS A POINTER 
TO THE CORRELATION WORD OF THE INPUT.ITEM SEEN, WHICH WILL BE 
THE FERST WORD IN SOME DATA STRUCTURE BEAD? PERHAPS REPRESENTING 
A NODE, RESISTORe ETC. $y 

eee GO BACK AND GET A PENSEE ON A BUTTON IN ORDER TO DETERMINE 
WHICH OPERATION TO PERFORM ON THE OBJECT TO WHICH THE USER JUST 
POINTED $- 


eee GO TO STATEMENT LABEL CORRESPONDING TO BUTTON NUMBER», WHICH 
IS AN INDEX IN LIGHT.BUTTON, THE ARRAY OF STATEMENT LABELS $y 


INTER PTR TOBE 

eee THE PROCEDURE CHECKS IF THE OBJECT CORRELATED WITH THE PENSEE 
IS A LIGHT BUTTON. ARGUMENT IS A POINTER TO A BEAD CONTAINING 
THE PENSEE INFORMATION // 


eee IS TYPE CODE THAT FOR A LIGHT BUTTON // 
eee RETURN BUTTON NUMBER STORED IN LIGHT BUTTON BEAD // 
eee CODE INDICATES PENSEE WAS NOT ON A LIGHT BUTTON $y 


PL 


COMMENT REMAINDER OF MAIN PROGRAM PROCESSES LIGHT SUTTONS $y 
DELET $ IF TYPE(LASTSEE) EQt NODE OR TYPE[LASTSEE) EQL DEVICE.TYPE ... PROCESS LIGHT BUTTON TO DELETE NODE: 
DEVICE OR ELEMENT // 
THEN BEGIN eee DELETE A NODE BY DELETING ALL ITS ATTACHED ELEMENTS FIRST, 
AND CHECKING THEIR INTERFACING NODES IN TURN. // 
DELET. ELEMENT (U(LASTSEE) ) eee DELETSELEMENT CHECKS IF POINTER IS EMPTY BEFORE DELETING. $y 
DELET.ELEMENT(O(LASTSEE)) $y 
DELETJELEMENT(L(LASTSEE)) $y» 
DELET. ELEMENT (R(LASTSEE)) eee NODE TO BE DELETED WILL BE DELETED THIS TIMEe AT LEAST, 
ALL ATTACHED ELEMENTS WILL HAVE PREVIOUSLY BEEN DELETED. $y 


SINCE 


END 


ELSE DELET-ELEMENT(LASTSEE) eos DELETE AN ELEMENT POINTED TO BY THE GRAPHIC. INPUT DEVICE $, 


DEFINE PROCEDURE DELET.ELEMENT(ELEMENT) WHERE POINTER ELEMENT TOBE 
IF ELEMENT EQL EMPTY OR ELEMENT EQL FORBIDDEN.LEAD eee 
THEN GOTO RETURN 
ELSE BEGIN 
DELETE (ELEMENT »FROMNCDE, TONODE } 


SEE IF ELEMENT IS VALID // 


eee DELETE THE ELEMENT.» FROMNODE AND TONQDE ARE RETURNED BY DELETE, 
INDICATING THE NODES BETWEEN WHICH THE ELEMENT WAS ATTACHED. 
DELETE ALSO UPDATES THOSE ADJACENT NODE BEADS BY 
UPDATING THE NUMBER OF LEADS AND UPDATING 
THE POINTERS TO THE DELETED ELEMENT TO BE EMPTY. $y 
IF LEADS(FROMNODE) EQL O eee SEE IF NGDE FROM WHICH ELEMENT WAS ATTACHED HAS NO LEADS NOW // 
THEN RMVNOD(FROMNODE) eee IF SO, REMOVE IT $y 
IF LEADS(TONODE) EQL O 
THEN RMVNOD(TONODE) $¢ 
END $, 


COMMENT DEFINITION OF PROCEDURE DELETEs WHICH IS CALLED ABOVE $, 


DEFINE PROCEDURE DELETE (ELEMENT eFROMNODE,TONODE) WHERE POINTER ELEMENTsFROMNODE »TONODE TOBE 
BEGIN 


COMMENT DELETE DELETES THE ELEMENT GIVEN, 
FROMNODE = FROM(ELEMENT) $y 


UPDATING DATA STRUCTURE $y 


TONODE = INTO{ELEMENT) $y 

RMV(ELEMENT) eee REMOVE THE REPRESENTATION OF THE ELEMENT FROM THE DISPLAY 
FILE. ELEMENT STILL POINTS TO THE BEAD $, 

IF NOT REDRAW. MODE eee TS USER IN AUTO ERASE MODE. IF SOs PICTURE MUST BE REDRAWN 
AFTER DELETION // 

THEN BEGIN 


XSEEN = (X(FROMNODE)+X(TONODE) )/2 eee THE OBJECT EXs WHICH IS A BIG X, WILL BE PLOTTED CENTERED 


OVER THE ELEMENT DELETED IF PICTURE IS NOT TO BE REDRAWN. $+ 


YSEEN = (Y(FROMNODE)+Y{(TONODE))/2 eee XSEEN AND YSEEN ARE AT THE MIDOLE OF THE ELEMENT SEEN, THE 
PLACE WHERE THE X IS ¥O BE PLOTTED $, 
DEFOBJ) eee DEFOBJ IS A PROCEDURE WHICH BEGINS THE DEFINITION OF A 


COMPOUND DISPLAY OBJECT $y 


SL 


ADDOBJ(SETPT(XSEEN,s YSEEN) ) 
ADDOBJICPYOBJ(EX)) 
P = ENDOBJ() 


DISPLAYC(PTR=PLOT(P)) $y 
RMV(PTR) 


eee ADD TO THE OBJECT BEING DEFINED A POINTs GENERATED BY 
PROCEDURE SETPT, AT X=XSEEN» Y=YSEEN $y 

eee ADD TO THE OBJECT A COPY OF THE STANDARD *X! 
DELETIONS. $y 

eee ENDOBJ TERMINATES THE COMPOUND OBJECT AND RETURNS A POINTER 
TO THE OBJECT WHICH WAS JUST BUILT. S$, 


USED TO DENOTE 


ees REMOVE THE X FROM THE DISPLAY FILE AS IT SHOULD NOT APPEAR 
WHEN THE PICTURE IS REGENERATED WITH THE ELEMENT REMOVED $y 


END $, 
I = IF TYPECELEMENT) EQL SHORT THEN SHTSZ ELSE RESSZ 4.2. DETERMINE SIZE OF ELEMENT BEAD TO BE RETURNED TO 
FREE STORAGE $-¢ 


IF R(FROMNODE) EQL ELEMENT eee ELEMENT IS HORIZONTALLY CONNECTED // 
THEN BEGIN 
FRET(I,ELEMENT) eee RETURN ELEMENT TO FREE STORAGE $> 
R(FROMNODE) = EMPTY eee FEX NODE BEADS TO WHICH ELEMENT WAS ATTACHED TO INDICATE 


ELEMENT HAS BEEN DELETED $, 

L(TGNODE) = EMPTY $y 

ENO 

ELSE BEGIN eee ELEMENT IS VERTICALLY CONNECTED. SINCE ELEMENTS ARE DEFINED 

ONLY TO THE RIGHT OR BELOW THEIR FROMNODE, WE NEED CHECK ONLY 
THESE TWO POSSIBILITIES // 

FRET(I,ELEMENT) $5 

D(FROMNODE) = EMPTY S$, 

U(TONODE) = EMPTY $, 


END $y, 
LEAOS(FROMNODE) = LEADS(FROMNODE)-1 eee REDUCE COUNT OF NUMBER OF ELEMENTS ATTACHED TO NODE $, 
LEADS(TONODE) = LEADS(TONOODE)-1 $y 
FIXEND() eee SYSTEM KLUDGE $, 
END $y 


DEFINE PROCEDURE RMVNOD(NODE} WHERE POINTER NODE TOBE 
BEGIN 


COMMENT RMVNOD REMOVES A NODE FROM THE DATA STRUCTURE AND THE DISPLAY FILE $, 
IF NODE EQL NODE1 
THEN GOTO RETURN §&, 
P = NODEL $, 
HERE $ PREV = P eee SEARCH NODE CHAIN FOR NODE $, 
P = NEXT(PREV) $, 
IF P EQL EMPTY 
THEN BEGIN 
GOUT {.C. /NODE SPECIFIED NOT ON NODE CHAIN /) $y 
GOTO GET.PENSEE $e 
END 
ELSE IF P NEQ NODE 
THEN GOTO HERE $y 
NEXT(PREV) = NEXT(P) eee REMOVE NODE FROM NODE CHAIN $, 
RMV(P) eee REMOVE NODE FROM THE DISPLAY FILE $» 
XSEEN = XOP) $y 
YSEEN = Y{(P) $, 
FRET(NODESZ,P) eee RETURN NODE BEAD TO FREE STORAGE $, 
FIXEND() $, 
IF NOT REDRAW. MODE 
THEN BEGIN 
DEFOBJ() $+ 
ADDOBJ( SETPT{(XSEEN, YSEEN) ) eee PLOT A LARGE X OVER THE NODE BEING DELETED $y 
ADDOBJI(CPYOBJIEX)) $y 
P = ENDOBJ() $y 
DISPLAY(PTR = PLOT(P)) $» 
RMVIPTR) $y 
END $, 
END $, 
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COMMENT ALLOW VALUE TO BE CHANGED IF ITEM SEEN WAS RESISTOR OR CAPACITOR $, 
NEWVAL $ IF TYPE(LASTSEE} EQL RESISTOR OR TYPE{LASTSEE) EQL CAPACITOR 


THEN BEGIN 
GET.ITEM(.C. /TYPE NEW VALUE/,RVAL,»NEED.VALUE) «22 PROMPT USER AND GET A NEW VALUE $¢ 
VALELASTSEE} = RVAL eee STORE NEW VALUE IN ELEMENT BEAD $y 
END $- 


GOTO GET.PENSEE $y 


COMMENT DEFINE HORIZONTAL ELEMENTS $y 


HORES $ THIS = FREE(RESSZ) $, eee ADD HORIZONTAL RESISTOR. START BY GETTING RESISTOR BEAD FROM 
FREE STORAGE $, 
TYPEC{THIS) = RESISTCR eee AND SET TYPE COMPONENT $y 
ITEM = HRES eee ITEM TO BE PLOTTED IS PICTURE OF HORIZONTAL RESISTOR. HRES IS 


A POINTER TO THE DISPLAY OBJECT REPRESENTING THE RESISTOR $, 
HORIZ $ FROM(THIS) = FROMNODE = NEARNODE(LASTSEEsXSEENsYSEEN) e+e PROCESS HORIZONTAL ELEMENTS. START BY GETTING POINTER TO 

NEAREST NODE OR DEVICE TO CURSOR AT XSEEN*sYSEEN USING NEARNODE, 
WHICH IS EXPLAINED BELOW. THE *FROM* COMPONENT OF THE ELEMENT BEAD 
IS SET TO POINT TG THE NODE OR DEVICE RETURNED.«j $> 

INTO(THIS) = TONODE = GETNODE(X(FROMNODE)+GREDSPsY({FROMNODE)) «2. FIND NODE OR DEVICE AT END OF ELEMENT OR 
CREATE A NODE THERE $y 

IF R(FROMNODE) EQL FORBIODEN.LEAD OR L(TONODE) EQL FORBIDODEN.LEAD .-. CHECK IF ELEMENT REQUIRES A CONNECTION TO 
A FORBIDDEN LEAD OF A DEVICE. // 


THEN BEGIN 
ERROR(1) eee USE ERROR OUTPUT ROUTINE DEFINED ABOVE TO PRINT ERROR MESSAGE 
CORRESPONDING TO CODE OF 1 $» 
IF TYPE(THIS) EQL SHORT eee START OVER BY GETTING ANOTHER PENSEE ON A LIGHT BUTTONys BUT 


FIRST RETURN TO FREE STORAGE BEADS CREATED BUT WHICH COULD NOT 
BE ATTACHED // 

THEN FRET(SHTSZ+THIS) 

ELSE FRET(RESSZeTHIS) eee RESISTORS AND CAPACITORS ARE THE SAME SIZE $» 

IF NODE.CREATED ees CHECK IF A NODE WAS CREATED AT THE RIGHT-HAND END OF THE 
NEW ELEMENT. SINCE ELEMENT CAN NOT BE ATTACHED 
THE NODE WILL HAVE NO LEADS AND SHOULD BE DELETED. 
NODE-CREATED IS SET WITHIN PROCEDURE NEARNODE. $5 


THEN BEGIN 
RMV{CREATED.NODE) eoe REMOVE FROM DISPLAY FILE $y 
FRET (NODESZ,CREATED.NODE) eoce AND FROM DATA STRUCTURE $y 
FIXEND() $» 
END $, 
GOTO GET.PENSEE $, 
END $y, 
IF R(FROMNODE) NEQ EMPTY eee IF SOMETHING IS ALREADY IN POSITION WHERE NEW ELEMENT IS TO 
BE ATTACHED, DELETE IT AND SET FLAG SO PICTURE WILL BE REDRAWN 
IF IN AUTO ERASE MODE. // 
THEN BEGIN 


DELETE (R(FROMNODE),FROMNOODE,TONODE) $y 
ELEMENT.DELETED = TRUE $, 


END $, 
R(FROMNODE) = THIS eee MAKE NODE OR DEVICE BEADS POINT TO NEW ELEMENT $, 
L(TONODE) = THIS $; 
ALL $ LEADS(FROMNODE) = LEADS(FROMNODE) +1 eee COME HERE FOR ALL ELEMENTS AND INCREASE ELEMENT COUNT ON 


NODES OR DEVICES $, 
LEADS(TONODE) = LEADS{TONODE)+1 $, 


IF TYPE(THIS) NEQ SHORT eco IF *THIS* POINTS TO A RESISTOR OR CAPACITOR BEAD » GET A NAME 
FOR IT BY CALLING PROCEDURE NAMEELEM // 


THEN BEGIN 
VAL(THIS) = 0 eee SET VALUE TO BE O INITIALLY Sy 
NAME (THIS) = NAMEELEM(TYPE(THIS)) $, 
ENO $, 
DEFOBJ() eee BEGIN OBJECT DEFINITION. OBJECT WILL INCLUDE A POINT COMMAND 


TO DRAW THE ELEMENT AT THE CORRECT POSITION, THE PICTURE OF THE 


LL 


ELEMENT AND THE TEXT OF THE USER'S NAME,IF ANY. $+ 
ADOD0BJ (SE TPT { X(FROMNODE) » Y(FROMNODE) )) eee ADD A SET POINT AND THEN THE PICTURE OF THE ELEMENT $, 
ADDOBJICPYOBJLITEM)) S$, 
IF TYPECTHIS) NEQ SHORT ; 
THEN ADDOBJ(TEXTUNAME (THIS) )) eee AOD USER'S NAME FOR ELEMENT $- 


ELEM.PI{C = ENDOBJ() eee TERMINATE THE OBJECT DEFINITION . ELEM.PIC IS POINTER TO 
OBJECT S$» 


END.OF .OISPLAY.FILE = ADDED.ELEMENT = PENSNS(PLOT(ELEM.PIC, THIS, END.OF .DISPLAY.FILE)) 22 PLOT OBJECT, *NAME* 
: : IS THIS. NAME IS POINTER TO CORRELATION WORD. NOTE THAT 
DISPLAY *NAME* IS NOT USER'S NAME, BUT A POINTER TO THE BEAD 
DESCRIBING THE ELEMENT . OBJECT IS PLOTTED AT THE END OF THE 
DISPLAY FILE $, 
IF REDRAWeMODE AND ELEMENT.DELETED ees IF IN AUTGERASE MODE+ AND AN ELEMENT WAS DELETED WHILE 


, ADDING A NEW ELEMENT, PICTURE MUST BE REDRAWN // 
THEN BEGIN 

ELEMENT.DELETED = FALSE $, 

GOTO REWRITE $, 

END 
ELSE BEGIN 


IF NODE.CREATED 

THEN DISPLAYICREATED.NODE , ADDED. ELEMENT) 2.2. DISPLAY NODE AND ELEMENT JUST CREATED. NOTE THAT PROCEDURE 
PLOT DOES NOT TRANSMIT DISPLAY COMMANDS TO THE TERMINAL , 8UT 
ONLY ADDS OBJECTS TO THE GRAPHSYS DATA STRUCTURE. PROCEDURE 
DISPLAY MUST BE CALLED TO SEND COMMANDS // 

ELSE DISPLAY{ADDED.ELEMENT) $, 

GOTO GET.PENSEE $, 

END $, 
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COMMENT DEFINE VERTICAL ELEMENTS. COMMENTS ARE MUCH THE SAME AS FOR HORIZONTAL ELEMENTS IN THE PRECEEDING SECTION $e 


VERES $ TYPE(THIS = FREE(RESSZ)) = RESISTOR 
ITEM = VRES $y 
VERT $ FROM(THIS) 


eee NOTE USE OF PHRASE SUBSTITUTION $y 


FROMNODE = NEARNODE(LASTSEE,XSEENyYSEEN) $y 


INTO(THIS) = TONODE = GETNODE(X{FROMNODE),Y{FROMNODE)-GRIDSP) $, 
IF D(FROMNODE) EQL FORBIDDEN.LEAD OR U({TONODE) EQL FORBIDDEN.LEAD 


THEN BEGIN 
ERROR(L) $y 
IF TYPE{ THIS) EQL SHORT 
THEN FRET(SHTSZ, THIS) 
ELSE FRET(RESSZ,THIS) $y 
IF NODE.CREATED 
THEN BEGIN 
RMV(CREATED.NODE) $y 
FRET(NODESZ,»CREATED.NODE) $y 
FIXEND() S$, 
END $» 
GOTO GET.PENSEE $, 
END $s 
IF D(FROMNODE) NEQ EMPTY 
THEN BEGIN 
ELEMENT.OELETED = TRUE $y 
DELETE {O(FROMNODE) »FROMNODE,TONODE) $, 
END $» 
O(FROMNODE) = THIS $, 
U({TONODE) = THIS S$, 
GOTO ALL $y 
HOCAP $ TYPE(THIS = FREE(CAPSZ)) 
ITEM = HCAP $y 
GOTO HORIZ $, 
VECAP $ TYPE(THIS = FREE{CAPSZ)) = CAPACITOR 
ITEM = VCAP $, 
GOTO VERT $» 
HOSHT $ TYPEC THIS = FREE({SHTSZ)) = SHORT 
ITEM = HSHT $, 
GOTO HORIZ $» 
VESHT $ TYPEC(THIS = FREE(SHTSZ)) 
ITEM = VSHT $+ 
GOTO VERT $y 
ERSON $ REDRAW.MODE = TRUE 


CAPACITOR 


SHORT 


GOTO GET.PENSEE $, 
ERSOFF $ REORAW.MODE = FALSE $, 

GOTO GET.PENSEE $y, 
EXIT §$ CHNCOM(Q) 


eee HORIZONTAL CAPACITOR $y 


eee VERTICAL CAPACITOR $, 


ees HORIZONTAL SHORT $e 


eee VERTICAL SHORT $y 


eee SET AUTO ERASE MODE SWITCH SO PICTURE WILL BE RETRANSMITTED 
AFTER EVERY DELETION S$, 


eee EXIT FROM PROGRAM TD TIMESHARING SYSTEM COMMAND LEVEL $y 


COMMENT REMAINDER OF MAIN PROGRAM PROCESSES DEVICE DEFINITIONS, THE EDITING OF DEVICES AND THE USAGE OF DEVICES $y 
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COMMENT PROCESS LIGHT BUTTON TO DEFINE A DEVICE $, 
DEF.DEVICE $ DEFINITION.MODE = TRUE $y 
DEVICE = DEFINITION.POINTER = FREE(DEFINITION.SIZE) wee GET A DEVICE DEFINITION BEAD $, 
DEFSUBI(DEVICE) eee BEGIN SUBPICTURE DEFINITION. NAME OF SUBPICTURE IS "DEVICEt. $, 
END.OF.DISPLAY.FILE = DEVICE $, 
COMMENT THE DISPLAY OBJECT TO REPRESENT A DEVICE DEFINITION IS A SUBPICUTURE. UNTIL A SUBPICTURE IS TERMINATED 

BY A CALL TO PROCEDURE ENDSUB, THE SUBPICTURE CAN NOT BE DISPLAYED AS A FINISHED ENTITY BY 

A CALL TO DISPLAY WITH THE NAME OF THE SUBPICTURE, I.E. DISPLAY(DEVICE). THEREFORE WHILE DEFINING A DEVICE THE 

PROGRAM MUST EXPLICITLY KNOW WHAT INFORMATION IN THE DISPLAY FILE IS TO REDISPLAYED WHEN 

THE SCREEN IS ERASED AND THE PECTURE IS TO BE REDRAWN. IN ADDITION OBJECTS MUST ALWAYS BE ADDED TO 

THE SET OF OBJECTS COMPRISING THE SUBPICTURE DEFINITION RATHER THAN TO THE CIRCUIT WHICH WAS BEING 

DEFINED BEFORE THE USER ENTERED DEVICE DEFINITION MODE. THEREFORE DEVICE IS A POINTER TO THE 

CORRELATION WORD OF THE FIRST OBJECT IN THE SECTION OF THE DISPLAY FILE FOR THE SUBPICTURE DEFINITION. 

ENDeOF-DISPLAY.FILE POINTS TO THE CORRELATION WORD OF THE LAST OBJECT ADDED TO THE 

SUBPICTURE DEFINITION. $4 
STORE.NODE = NODEL eee PUT AWAY POINTER TO BEGINNING OF MAIN CIRCUIT DATA STRUCTURE. $, 
ERASER() $y 
GET.ITEM(.Ce. /INDICATE POSITION OF INITIAL NODE FOR DEVICE/,INPUT.~ITEM,NEED.ABPOS) $, 
NODEL = GETNODE(XX(CINPUT.ITEM) sYY(CINPUT.JITEM)) 22. NODEL NOW POINTS TO THE BEGINNING OF THE DEVICE DATA 

STRUCTURE. $y 
BUTTONS{MENU2 ) ees GENERATE LIGHT BUTTONS FOR USE DURING DEVICE DEFINITION $y, 
DISPLAY{FBUT,LBUT) $y» 
DISPLAY{NODE1L) $, 
IF BEGIN.DEVICE.CHAIN EQL EMPTY 
THEN BEGIN.DEVICE.CHAIN = DEFINITION.POINTER owee IF THIS IS THE FIRST DEVICE TO BE DEFINED, PUT IT AS FIRST 
DEVICE ON CHAIN OF DEVICE DEFINITIONS // 


ELSE NEXT(LASTDEF) = DEFINETIGN.POINTER aes PUT NEW DEVICE DEFINITION BEAD INTO LIST OF DEFINITIONS $, 

NEXT{(DEFINITION.POINTER) = EMPTY $y 

NUM(DEFINITION.POINTER) = O eee SET NUMBER OF USAGES TO BE O $y 

FSTNODE (DEFINITION. PGINTER) = NODEL eee SET DEVICE DEFINITION BEAD TO POINT TO DATA STRUCTURE FOR 
EQUIVALENT CIRCUIT $e 

GOTO GET.PENSEE eee PROGRAM IS NOW SETUP TO OPERATE WHILE DEFINING A DEVICE AS IF 


IT WAS ON THE MAIN CIRCUIT LEVEL $y 
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Ne 
ew 


COMMENT PROCESS LIGHT BUTTON TO TERMINATE DEVICE EDITING OR DEFINITION $, 
TERMeDEVICE $ NODE1 = STORE.~NOODE eee RESET NODEL, THE POINTER TO THE CIRCUIT DATA STRUCTURE, TO BE 
THAT FOR THE MAIN CIRCUIT $, 
IF EDITING.DEFINITICN 


THEN BEGIN 
EDITING.-DEFINITION = FALSE $, 
RMV(DEVICE) eee REMOVE SUBPICTURE CALL FOR DEVICE FROM DISPLAY FILE $, 
END 

ELSE BEGIN eee DEFINITION IS BEING TERMINATED // 


DEFINITION.MODE = FALSE $, 
GET.ITEM(.C. /SPECIFY DEVICE NAME/,INPUT.sITEM,NEED.CHARS) $y 
NAME (DEFINITION. POINTER) = COPYC(0,0,INPUT.ITEM) «2. MAKE A COPY OF THE TEXT OF THE NAME $y 


BOXES(DEFINI TION. POINTER) eee PROCEDURE BOXES REQUESTS USER TO SPECIFY THE NUMBER OF 
TERMINAL LEADS AND THEIR ORIENTATION $y 
TRMNLS (OEF INI TION. POINTER) eee PROCEDURE TRMNLS REQUESTS USER TO INDICATE WHICH LEADS IN THE 


DEVICE DEFINITION ARE THE TERMINAL LEADS. THIS IS REQUIRED IN 
QROER FOR AN ANALYSIS PROGRAM TO SUBSTITUTE THE EQUIVALENT 
CIRCUIT FOR THE DEVICE REPRESENTATION. $y 


LASTDEF = DEFINITION.POINTER eos SET LAST DEFINITION ON THE LIST OF DEFINITIONS TO BE THIS 
DEFINITION $¢ 

ENOSUB() eee TERMINATE SUBPICTURE DEFINITION $, 

END $» 


END.OF.DISPLAY.FILE = LASTOBJ(MAIN.FILE} $, 
COMMENT SET THE END OF THE DISPLAY FILE TO BE THAT FOR THE MAIN DISPLAY FILE BY CALLING PROCEDURE LASTOBJ, 
WHICH FINDS THE LAST OBJECT IN THE MAIN DISPLAY FILE, OR IN A SUBPICTURE DEFINITION. $y 
BUTTONS (MENUL) eee REGNERATE LIGHT BUTTONS FOR WORKING AT MAIN CIRCUIT LEVEL $y 
GOTO REWRITE $, 
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COMMENT PROCESS LIGHT BUTYON TO USE DEVICE $, 


USE.DEVICE $ GET.ITEM(.C. /SPECIFY DEVICE NAME/,INPUT.ITEM,NEED.CHARS) $y 


IF (P = BEGIN.DEVICE.CHAIN) EQL EMPTY 
THEN GOTC NOT.FOUND 


ELSE GOTO START $, 
REPEAT $ IF (P = NEXT(P)) EQL EMPTY 
THEN BEGIN 
NOT.FOUND $ ERROR(2) $, 
GOTO GET.PENSEE $, 
END $, 
START $ COMPAR (NAME(P),ENPUT.ITEM,REPEAT »FOUND,REPEAT ) 


FOUND $ USAGE = LASTSEE $+ 


eee START AT BEGINNING OF DEVICE CHAIN AND SEARCH FOR DEVICE 
SPECIFIED // 


eee PROCEDURE COMPAR TRANSFERS TO LABEL *FOUND* IF THE NAME OF A 
DEVICE MATCHES THE INPUT NAME. OTHERWISE IT GOES TO THE LABEL 


"REPEAT® S$, 


BOXeSTYLE = CHOICE(STYLE(P) sUSAGE,ELLEGAL.ATTACHMENT) wo 


IF ILLEGAL ATTACHMENT 
THEN BEGIN 
ERROR(1) $5 
GOTO GET.PENSEE S$» 
ENO 
ELSE BEGIN 


ROTATIONAL 
DEVICE DEFI 


PROCEDURE CHOICE PRESENTS THE USER WITH THE 
CONFIGURATIONS OF THE SYMBOL USED TO REPRESENT THE 
NITION TO WHICH P POINTS. USAGE IS A POINTER TO NODE TO 


BE REPLACED BY THE DEVICE. THE SYMBOL SELECTED BY THE USER 


WITHIN CHOI 


CE MUST HAVE LEADS IN THE OIRECTIONS WHERE THE 


NODE PRESENTLY HAS ATTACHMENTS-~-IF NOT, IELLEGAL/ATTACHMENT IS SET 


TO BE TRUE 
BOX.STYLE I 


SO THE SUBSTITUTION OF THE DEVICE CAN NOT OCCUR. 
S A POINTER TO THE DISPLAY OBJECT FOR THE SYMBOL 


TO REPRESENT THE DEVICE S$, 


COMMENT ALTER THE NODE BEAD TQ MAKE IT A DEVICE USAGE BEAD BY RESETTING SEVERAL COMPONENTS $, 


FYPE(USAGE} = DEVICE.TYPE $, 
NUM(P} = NUME(P)41L 


ese NUM IS T 


NAME (USAGE) = COPYC(0,0,NAME(P) »NUMTOC(NUM(P))) 2-2 P 


4 


DEF.PTR(USAGE) = P 


DEFOBJ() 


ADDOBJ(SETPT(X (USAGE) sY(USAGE})) $+ 
ADDOBJ( BOX.STYLE) 


ADDOBJ( TEXT (NAME (USAGE) )) 
BOX.STYLE = ENDOBJ() $+ 
PENSNS (RPL (BOX.STYLE » USAGE) } 


GOTO REWRITE 
END $, 


NAME OF DEV 


HE NUMBER OF USAGES OF THE DEVICE $+ 
ROCEDURE COPYC CONCATENATES FWO CHARACTER STRINGSsTHE 
ICE AS GIVEN WHEN IT WAS DEFINED AND THE NUMBER OF 


USAGES. PROCEDURE NUMTOC CONVERTS A NUMBER TO A CHARACTER STRING. 
eee SET POINTER TO DEVICE DEFINITION SO THAT AN ANALYSIS PROGRAM, 
IF ONE EXISTED, COULD SUBSTITUTE THE EQUIVALENT CIRCUIT FOR THE 


DEVICE IN C 
eee DEFINE A 
POINT TO PL 


ece AND THE 
SPECIFIED 6B 
eee AND THE 


eee REPLACE 
USAGE, BY 
SENSITIVE. 
coe PICTURE 


ALCULATING THE PROPERTIES OF THE CIRCUIT $, 
DISPLAY OBJECT FOR THE DEVICE CONSISTING OF A 
OT THE DEVICE AT THE NODE POSITION $, 


DISPLAY OBJECT FOR THE BOX WITH THE NUMBER OF LEADS 
Y THE DEVICE. STYLE $y 
NAME OF THIS USAGE OF THE DEVICE $» 


THE DESPLAY OBJECT FOR THE NODE, WHICH HAS THE NAME 
THE DEVICE DISPLAY OBJECT, BOX.STYLE, AND MAKE IT PEN 
$e : 

WILL BE REDRAWN TO SHOW DEVICE $+ 


zB 


COMMENT PROCESS LIGHT BUTTON TO EDIT DEVICE $, 
EDIT.OEVICE $ GET.ITEM{.C. /SPECIFY DEVICE NAME/, INPUT.ITEMeNEED.CHARS) $y 


COMMENT 


IF (Pp 
THEN 
ELSE 
1F (Pp 
THEN 
ELSE 


SET 


= BEGIN.DEVICE.CHAIN) EQL EMPTY 
GOTO NOT.FOUND eee LOOK FOR DEVICE ON DEVICE DEFINITION CHAIN // 
GOTO TEST $y 


= NEXT(P)) EQL EMPTY 
ERROR (2) 
BEGIN 
SUB=P 
COMPAR(NAME(P) sINPUT.ITEM,R1sFleR1) $e 
DEVICE = CALL(P) eee GENERATE A DISPLAY OBJECT WHICH [S A SUBPICTURE CALL FOR THE 


DEVICE DEFINITION $, 
ERASER() $+ 
DISPLAY(DEVICE) $y 
BUTTONS(MENU2) $+ 
EDITING.DOEFINITION = TRUE $, 
END.OF-DISPLAY.FILE = LASTOBJ(SUB) $, 
END.OF-DISPLAY.FILE TO BE A POINTER TO THE CORRELATION WORD OF THE LAST OBJECT IN THE SUBPICTURE 


DEFINITION SO OBJECTS CAN BE ADDED TO THE END OF THE SUBPICTURE DEFINITION. FIRST 2 WORDS OF THE DEFINITION 
BEAD POINTED TO BY P ARE THE SUBPICTURE CORRELATION WORDS. $, 


GOTO 


STORE.-NODE = NODE] $y, 

NODEL = FSTNODE(P) eee SET DATA STRUCTURE UPON WHICH THE PROGRAM IS TO OPERATE TO BE 
THE CIRCUIT CORRESPONDING TO THE DEVICE DEFINITION $y 

DISPLAY(FBUTeLBUT) $y 

END $y 

GET.PENSEE $- 
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COMMENT THE FOLLOWING PROCEDURES ARE A GROUP OF SMALL SERVICE ROUTINES. $, 


DEFINE PROCEDURE FIXEND TOBE 
COMMENT FIXEND UPDATES THE POINTER TO THE END OF THE DISPLAY FILE TO AVOID A PROBLEM WHEN THE LAST OBJECT 

IN THE DISPLAY FILE 1S DELETED. PROCEDURE LASTOBJ RETURNS A POINTER TO THE LAST OBJECT 

IN EITHER A SUBPICTURE DEFINITION OR THE MAIN DISPLAY FILE. IF A SUBPICTURE IS BEING EDITED, SUB POINTS TO 

THE DEVICE DEFINITION BEAD, WHICH BEGINS WITH THE SUBPICTURE CORRELATION WORD. $e 
BEGIN 
ENO.OFeDISPLAY.FILE = LASTCBJ(IF EDITING.DEFINITION THEN SUB ELSE MAIN.FILE) $» 
END $y 


DEFINE POINTER PROCEDURE NEARNODE (LASTSEEsXSEEN?+YSEEN) WHERE POINTER LASTSEE, INTEGER XSEEN,YSEEN TOBE 
BEGIN 
COMMENT NEARNODE GIVES A POINTER TO THE NODE NEAREST TO XSEENsYSEEN $, 

TF TYPE(LASTSEE) EQL NODE OR TYPE(LASTSEE) EQL DEVICE.TYPE 

THEN NEARNGDE = LASTSEE 

ELSE BEGIN 
FROMNODE = FROM(LASTSEE) $, 
TONODE = INTO(LASTSEE) S$, 
IF (XSEEN~X (FROMNODE )+Y (FROMNODE)-YSEEN) LES (X{TONODE)-XSEEN+YSEEN-Y(TONODE)) «.« WORKS ONLY WHEN 

NODES ARE LAID OUT ON A GRID // 


THEN NEARNODE = FROMNODE 
ELSE NEARNODE = TONODE $, 
END $, 

END $, 


DEFINE PROCEDURE INITARDS TOBE 


BEGIN 

SGNON(1) eee CONNECT TO DISPLAY UNIT AND INITIALIZE GRAPHSYS ROUTINES. $, 

ERASER() $, 

PENCHK (TRUE) eee PENCHK TELLS GRAPHSYS TO CHECK EACH GRAPHICAL POSITION TO SEE 
IF IT IS IN THE PEN-SENSITIVE AREA OF AN OBJECT $, 

PENOLT (50450) eee PENOLT SETS THE SIZE OF AREA WITHIN WHICH OBJECTS ARE 
PEN-SENSITIVE. ALL OBJECTS ARE SENSITIVE WITHIN A SQUARE OF 
HALF WIOTH 50 CENTERED AT THE CALCULATED CENTER OF THE OBJECT $, 

END $, 


Say 
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DEFINE POINTER PROCEDURE NAMEELEM(TYPE) WHERE INTEGER TYPE TOBE 


BEGIN 


COMMENT NAMEELEM GETS A NAME FOR AN ELEMENT AND ADDS IT TO THE BEAD FOR THE ELEMENT $y 


IF. TYPE EQL CAPACITOR 
THEN BEGIN 


NUMBER. OF OCCURRENCES (1) = NUMBER.OF-OCCURRENCES(1)42 S$» 
NAMEELEM = COPYC(0+0,.C. /C/,NUMTOC (NUMBER .OF .OCCURRENCES(1))) 2.2. COPYC CONCATENATES C WITH 


END 
ELSE BEGIN 


CAPACITOR NUMBER TO GIVE A NAME SUCH AS C5 $, 


COMMENT OTHERWISE THE ELEMENT MUST BE A RESISTOR $y 
NUMBER. OF OCCURRENCES (2) = NUMBER.OF -OCCURRENCES(2)¢#1 $y, 
NAMEELEM = COPYC{0,0-.C. /R/_.NUMTOC (NUMBER.OF OCCURRENCES (2))) $y 


END $e 
END $, 


DEFINE POINTER PROCEDURE NAMENODE TOBE 


BEGIN 


COMMENT NAMENODE GIVES A UNIQUE NAME TO EACH NODE. NAME IS "N* FOLLOWED BY AN INTEGER S$,» 
NUMBER. OF .OCCURRENCES (0) =NUMBER.OF.OCCURRENCES(0)41 $, 
NAMENODE = COPYC(0205-Ce /N/»NUMTOC (NUMBER.OF-OCCURRENCES(0))) $,» 


END $, 


COMMENT END OF THIS COMPILATION. 
END FINI 


PROCEDURES BOXES, CHOICE AND TRMNLS ARE IN THE FOLLOWING COMPILATION. $,» 


ss 


ne 


BEGIN 


COMMENT SEPARATE COMPILATION INCLUDING PROCEDURES FOR DEFINING AND USING DEVICES. PROCEDURES ARE BOXES, 
CHOICE sTRMNLS+SAMPLE.BOXsMAKEBOX $, 


INTEGER NEED.PENSEE $+ 

POINTER RBOX,P19P2,P3,P4_B0X1 s BOX2 » BOX3 y BOX4, BOX5, BOXS» BOX7 » BOX8 s BOX9, BOX10, BOXL1 »BOKS1,BOKS2,B80KS3,B80KS4,SB0X1, 
SBOX2 , SBOX3 »SBOX4 » SBOX5S »SBOX6,SBOXK 7» SBOX8, SBOX9,SBOX10, SBOXL1s ITEM, MESSAGE, EMPTY,FORBIDDEN.LEAD $, 

PROCEDURE ERASERsERRORs ADDOBJ»DEFOBJs DISPLAY sGET.ITEM $y 

POINTER PROCEDURE PENSNS,»PLOTsENDOBJ,RMV,CPYOBJ $, 


COMMENT THE FOLLOWING DECLARATIONS ARE FOR COMPONENTS IN NODE AND OEVICE USAGE BEADS AND ARE THE SAME AS IN THE 
MAIN PROGRAM $, 
INTEGER COMPONENT STYLE $, 
POINTER COMPONENT UsDeRelyTRMNLLeTRMNLZ,TRMNL3eTRMNLS $y 


STYLE $=$% 2 eee THIS IS THE STYLE COMPONENT OF A DEVICE DEFINITION BEAD -- 
SEE FIG 2 $s 

U $=$ 5 eee THESE ARE THE CONNECTION COMPONENTS OF A NODE BEAD -- SEE FIG 
lL Se 

L $=$ 6 $e 

R $=$ 7 $, 

D $=$ B $y 

TRANL1] $=$ 7 eee THESE ARE THE COMPONENTS IN A DEVICE DEFINITION BEAD 


INDICATING HOW THE TERMINAL NODES ARE LOCATED IN THE EQUIVALENT 
CIRCUIT. $e 

TRMNL2 $=8 8 $y 

TRMNL3 $=$ 9 $y 

TRMNLS $=$ 10 $y 


COMMENT DECLARATION OF 'PENSEE* BEAD AS RETURNED BY GET.ITEM. MORE COMPLETE BEAO DECLARATION IS IN MAIN PROGRAM $, 
POINTER COMPONENT OBJECT.NAME $, 
OBJECT.NAME $=$ 2 eee THE POINTER TO THE CORRELATION WORD -- THE OBJECT NAME-- IS 
RETURNED IN THE THIRO WORD OF A PENSEE ITEM $y 


PRESET 
BEGIN 
EMPTY = 0 eee COOE FOR A NULL POINTER $, 
FORBIODEN.LEAO = -1 eee CODE TO INDICATE THIS DIRECTION ON A DEVICE CAN NOT HAVE A 
: CONNECTION $y 
NEED.PENSEE = 1 eee CODE TO INDICATE NEXT INPUT ITEM MUST BE A PENSEE S$, 
END $y 


Ne 
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DEFINE PROCEDURE BOXES(DEFINITION.PTR) WHERE POINTER DEFINITION.PTR TOBE 


BEGIN eee BOXES DISPLAYS THE FOUR BASIC BOX STYLES AND ALLOWS THE USER 
TO CHOOSE THE ONE APPROPRIATE TO HIS DEVICE // 
BOOLEAN FIRST.TIME $y 
PROCEDURE SAMPLE.BOXsMAKEBOX $e 
PRESET FIRST-TIME = TRUE $, 
IF FIRST.~TIME eee SEE IF THIS IS THE FIRST TIME THIS ROUTINE WAS CALLED // 
THEN BEGIN 
MAKEBOX{ BOX] » BOX2 s BOX3 » BOX4 » BOXS » BOXGe BOX 7, BOX8y BOX9eBOXLOgBOX11) $y «2. CREATE THE BOX SYMBOLS TO BE 
USED WHEN DEVICES ARE PLOTTED. THERE ARE 4 BASIC BOX STYLES», AND 
11 CONFIGURATIONS WHEN ROTATION IS CONSIDERED // 
SAMPLE.BOX{SBOX1 »SBOX2,SBOX3 »SB80X4, SBOX 5s SBOX6, SBOX7 » SBOX 8» SBOX9»s SBOX10sSBOX11) eee GET DISPLAY 
OBJECTS FOR THE BOXES USED TO REPRESENT DEVICES. THEY INCLUDE A 
POINT TO POSITION THE BOX IN THE SELECTION AREA AT THE BOTTOM 
OF THE SCREEN $, 
FIRST.TIME = FALSE $y 


END $, 

PENSNS(P1 = PLOT(SBOX1)) eee ADD A PEN SENSITIVE 2 LEAD BOX TO THE DISPLAY FILE WITH NAME 
Pl S$, 

PENSNS(P2 = PLOT(SBOX3)) $, 

PENSNS(P3 = PLOT(SBOX7)) $e 

PENSNS(P4 = PLOT{SBOX11)) $, 

DISPLAY(PL,»P4) eee SEND DISPLAY FILE BETWEEN OBJECTS Pl AND P4 TO THE TERMINAL 
$y 


GETeITEM(.C. /POINT TO DEVICE STYLE/sITEMs,NEED.PENSEE) eo. GET PENSEE TO INDICATE WHAT STYLE IS DESIRED. 
ITEM IS A POINTER TO THE BEAD DESCRIBING THE PENSEE $, 

IF OBJECT.NAMECITEM) EQL Pl ecoe SEE IF NAME OF OBJECT SEEN IS FIRST BOX STYLE. Pl IS A 
POINTER TO THE CORRELATION WORD FOR THE FIRST BOX STYLE--SEE IF 
1T IS THE SAME AS THE CORRELATION WORD POINTER RETURNED AFTER 
THE PENSEE // 

THEN STYLE(DEFINETION.PTR) = 1 eee STORE THE CODE FOR THE DEVICE STYLE CHOSEN IN THE DEVICE 
DEFINITION BEAD $, 

TF OBJSECT.NAMECITEM) EQL P2 

THEN STYLE(DEFINITION.PTR) = 2 $e 

IF OBJECT.NAME(ITEM) EQL P3 

THEN STYLE(DEFINITION.PTR) = 3 $y 

IF OBJECT.NAME(ITEM) EQL P4 

THEN STYLE(DEFINITION.PTR) = 4 $e 

RMV(P1,P4) eee REMOVE OBJECTS Pl THROUGH P4 FROM THE DISPLAY FILE S$, 

GOTO RETURN $y, 

END $y 
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DEFINE POINTER PROCEDURE CHOICE (BOX.STYLEs USAGE, ILLEGAL.~ATTACHMENT) WHERE INTEGER BOX.STYLE $y 
POINTER USAGE $» 
BOGLEAN ILLEGAL.~ATTACHMENT TOBE 
BEGIN eee CHOICE DETERMINES THE ROTATIONAL CONFIGURATION OF THE BASIC 
BOX STYLE TO BE USED AT A GIVEN PLACE IN THE CIRCUT. BOX.STYLE 
WAS DETERMINED WHEN THE DEVICE WAS DEFINED BY USING THE 
PROCEDURE BOXES. USAGE IS THE POINTER TO THE NODE BEAD BEING 
REPLACED BY THE DEVICE. DEVICES WITH LESS THAN 4 LEADS HAVE A 
CERTAIN SIDE TO WHICH ELEMENTS CAN NOT BE ATTACHED. IF THE NODE 
BEING REPLACED HAS CONNECTIONS IN THOSE DIRECTIONS, 
ILLEGAL ATTACHMENT IS SET TO BE TRUE TO INDICATE THE USER HAS 
TRIED TO INCORRECTLY CONNECT THE DEVICE. THE ILLEGAL DIRECTIONS 
ARE SET TO THE CODE FORBIDDEN.LEAD SO NO CONNECTIONS WILL LATER 
BE MADE IN THOSE DIRECTIONS // 
MESSAGE = .C~ /POINT TO DEVICE STYLE WITH PROPER ORIENTATION/ $, 
ILLEGAL.~ATTACHMENT = FALSE $y 
START % IF BOX.STYLE EQL 1 eee BOX HAS 2 LEADS ON OPPOSITE SIDES // 
THEN BEGIN eee COMMENTS ON THE FOLLOWING SEQUENCE FOR GETTING THE USER TO 
INDICATE WHICH ROTATIONAL ORIENTATION IS CORRECT ARE MUCH LIKE THOSE FOR 
THE SEQUENCE GIVEN IN PROCEDURE BOXES ABOVE // 
PENSNS(BOKSL = PLOT{(SBOX1)) eee ORIENTATION WITH LEADS AT 3 AND 9 D'CLOCK $, 
PENSNS(BOKS4 = PLOT(SBOX2)) eee ORIENTATION WITH LEADS AT 6 AND 12 O'CLOCK S$, 
DISPLAY(BGKS1sBOKS4) $y 
GET.LTEM(MESSAGE,ITEM,NEED.PENSEE) $y 
IF OBJECT.NAME(ETEM) EQL BOKSL 
THEN BEGIN 
IF U(USAGE) NEQ EMPTY OR D(USAGE) NEQ EMPTY ... CHECK IF DIRECTIONS IN WHICH BOX HAS NO LEADS 
HAVE BEEN ALREADY USED IN NODE BEAD BEING REPLACED // 
THEN GOTO ERR $+ 
CHOICE = CPYOBJ(BOX1) eee DEVICE IS BEING USED CORRECTLY. SET VALUE OF THE PROCEDURE TO 
BE A POINTER TO A COPY OF THE OBJECT TO BE DISPLAYED TO 
REPRESENT THE BOX $, 
UCUSAGE) = O(USAGE) = FORBIODEN.LEAD --. OTHER DIRECTIONS CAN NEVER BE USED FOR THIS 2 LEAD 
DEVICE. SET THE UP AND DOWN COMPONENTS OF THE DEVICE USAGE BEAD 
TO A CODE INDICATING NO CONNECTIONS CAN BE MADE TO THEM $, 


END 
ELSE TF OBJECT.NAMEC(ITEM) EQL BOKS4 
THEN BEGIN 
IF R(USAGE) NEQ EMPTY OR LIUSAGE) NEQ EMPTY 
THEN GOTO ERR $y 
CHOICE = CPYOQBJ(BOX2) $, 
R{(USAGE) = L(USAGE) = FORBIDDEN.LEAD $, 
END 
ELSE GOTO BADSEE $, 
RMV(BOKS1,BOKS4) eee REMOVE OBJECTS BOKS1 TO BOKS4& FROM THE DISPLAY FILE $s 
GOTO RETURN $, 
END $+ 
IF BOX.STYLE EQL 2 ees BASIC CONFIGURATION HAS 2 LEADS AT 12 AND 3 D'CLOCK AND 4 
POSSIBLE ROTATIONAL CONFIGURATIONS, ASSUMING BOTH LEADS ARE 
EQUIVALENT // 
THEN BEGIN 
PENSNS(BOKSL PLOT(SBOX3)) $y» 
PENSNS(BOKS2 PLOT(SBOX4)) $e 


PENSNS (BOKS3 PLOT(SBOX5)) $5 
PENSNS (BOKS4 PLOT(SBOX6)) $, 
DISPLAY(BOKS1 »BOKS4) $, 
GET. ITEM( MESSAGE s I TEM,NEED.PENSEE) $e 
TF OBJECT.NAME(ETEM) EQL BOKS1 
THEN BEGIN 
RBOX = BOX3 $y» 
IF L{USAGE) NEQ EMPTY OR D{ USAGE) NEQ EMPTY 


t Won tt 
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THEN GOTO ERR $> 
L(USAGE) = D{USAGE) = FORBIDDEN.LEAD $, 
GOTO ALLBOX $, 
END $»o 

IF OBJECTSNAME(ITEM) EQL BOKS2 

THEN BEGIN 
RBOX = BOX4 $, . 
IF RC(USAGE) NEQ EMPTY OR D(USAGE) NEQ EMPTY 
THEN GOTO ERR $y 
R(USAGE) = D( USAGE) = FORBIDDEN.LEAD $, 
GOTO ALLBOX $, : 
END $, 

IF OBJECTNAME(ITEM) EQL BOKS3 

THEN BEGIN 
RBOX = BOXS $, 
IF R(USAGE) NEQ EMPTY OR U(USAGE) NEQ EMPTY 
THEN GOTO ERR $y 
R(USAGE) = UL{USAGE) = FORBIDDEN.LEAD $, 
GOTO ALLBOX $, 
END $y 

IF OBJECT.-NAME(ITEM) EQt BOKS4S 

THEN BEGIN 
RBOX = BOX6 $, 
IF U(USAGE) NEQ EMPTY OR L(USAGE) NEQ EMPTY 
THEN GOTO ERR $y 
U(USAGE) = L(USAGE) = FORBIDDEN.LEAD $, 
GOTO ALiBOX $, 


END $y 
GOTO BADSEE $y, 
END $y, 
IF BOX.STYLE EQt 3 ; eee BOX HAS 3 LEADS AT 3,9 AND 12 G'CLOCK AND 4 ROTATIONAL 
CONFIGURATIONS, ASSUMING ALL LEADS ARE EQUAL // 
THEN BEGIN 
PENSNS{(BOKSL = PLOT(SBOX7)) $, 
PENSNS(BOKS2 = PLOT{SBOX8)) S$» 
PENSNS(8OKS3 = PLOT(SBOX9)) $, 
PENSNS(BOKS4 = PLOT(SBOX10)) S$» 


DISPLAY(BOKSL,BOKS4) $,» 
GET. 1TTEM( MESSAGE »ITEM,NEED.PENSEE) So 
TF OBJECT.NAMEC ITEM) EQL BOKS1 
THEN BEGIN 

RBOX = BOX7 $, 

IF D(USAGE) NEQ EMPTY 

THEN GOTO ERR $, 

O(USAGE)} = FORBIDDEN-LEAD $s 

GOTO ALLBOX $, 

END $, 
IF OBJECT.NAME(ITEM) EQL BOKS2 
THEN BEGIN 

RBOX = BOXS8 $, 

IF RCUSAGE) NEQ EMPTY 

THEN GOTO ERR $y, 

R(USAGE) = FORBIDDEN.LEAD $y 

GOTO ALLBOX $, 

END $y 
IF OBJECT.NAME{ITEM) EQL BOKS3 
THEN BEGIN 

RBOX = BOXD $, 

{F ULUSAGE) NEQ EMPTY 

THEN GOTO ERR $, 

UC(USAGE) = FORBIDDENSLEAD $e 
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BADSEE $% 


ALLBOX $ 


ERR $ 


GOTO ALLBOX $, 
END S$,» 
IF OBJECT.NAME(ITEM) EQL BOKS4 
THEN BEGIN 
RBOX = BOX10 $, 
IF LCUSAGE) NEQ EMPTY 
THEN GOTO ERR $, 


LCUSAGE) = FORBIDDEN.LEAD $» 


GOTO ALLBOX $y 


END $, 
GOTO BADSEE $y, 
END $» 


IF BOX.STYLE EQL 4 


THEN BEGIN 
CHOICE = CPYOBJ{BOX11) $» 
GOTO RETURN $, 
END $y 
ERROR (3) 
GOTO START $, 
CHOICE = CPYOBJ(RBOX) S$, 
RMV(BOKS1,80KS4) S$, 
GOTO RETURN $y 
ILLEGAL ATTACHMENT = TRUE $y 
RMV(BOKS1L,BOKS4) S$, 
GOTO RETURN $, 
END $, 


eee BOX HAS 4 LEADS» AND ONLY-ONE CONFIGURATION, ASSUMING ALL 


LEADS ARE EQUIVALENT. TO SIMPLIFY THE PROGRAMMING THE PROGRAM 
ASSUMES ANY LEAD CAN BE EQUALLY WELL ATTACHED IN A GIVEN 
DIRECTION, I.E., THERE IS ONLY 1 ORIENTATION FOR A DEVICE WITH 4 
LEADS. THIS IS OBVIOUSLY UNREALISTIC, BUT IT REDUCES THE NUMBER 
OF ORIENTATIONS TO BE CHECKED WHEN A DEVICE IS BEING USED. INA 
USEFUL SYSTEM EACH LEAD WOULD HAVE A DESIGNATION AND THIS WOULD BE 
USED IN SPECIFYING THE DESIRED ORIENTATION. // 


eee USER POINTED TO SOMETHING OTHER THAN THE SAMPLE BOXES $y 


Ne? 


06 


DEFINE PROCEDURE TRMNLS(DEFINITION.POINTER) WHERE POINTER DEFINITION.POINTER TOBE 
BEGIN eee TRANLS DETERMINES WHICH NODES IN THE EQUIVALENT CIRCUIT FOR A 
DEVICE ARE TERMINAL NODES AND STORES THIS INFORMATION IN THE 
OEVICE teAMHICH i BEAD. THE NUMBER OF NODES IS DETERMINED BY THE 


BOX STYLE/ WHICH WILL HAVE BEEN SET BY A PREOR CALL TO PROCEDURE 
BOXES. // 
TRMNLI(DEFINITION.POENTER) = EMPTY eee SET EACH TERMINAL LEAD POINTER TO BE EMPTY $y 


TRMNL2Z (DEFINITION. POINTER) = EMPTY S$, 
TRMNL3(DEFINITIGN.POINTER) = EMPTY $y, 
TRMNL4S(DEFINITICNePOINTER) = EMPTY $y 
GETeITEM(.C. /POINT TO FIRST TERMINAL OF DEVICE/, ITEM,NEED.PENSEE) $, 
TRANLI (DEFINITION. POINTER) = OBJECT.NAMEL ITEM) «2. STORE POINTER TO TERMINAL NODE SEEN INTO THE DEVICE 
DEFINITION BEAD $, 
GET.ITEM(.C. /POINT TO SECOND TERMINAL OF DEVICE/,ITEMsNEED.PENSEE) $y 
TRANLZ(DEFINITION.POINTER) = OBJECT.NAMEL ITEM) $y 
IF STYLE(DEFINEITION.POINTER) GRT 2 
THEN BEGIN 
GET.ITEM(.C. /POINT TO THIRD TERMINAL OF DEVICE/~,ITEMyeNEED-PENSEE) $e 
TRMNLZ(OEFINETION.POINTER) = OBJECT.NAMECITEM) $5 
IF STYLE(DEFINITION.POINTER) GRT 3 
THEN BEGIN 
GET.ITEM(.C. /POINT TO FOURTH TERMINAL OF DEVICE/,ITEMsNEED.PENSEE) $o 
TRMNLS(DEFINITION.POINTER) = OBJECT.NAME( ITEM) $, 
END $, 
END $y 
GOTO RETURN $y 
END $, 
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DEFINE PROCEDURE SAMPLE.BOX(SBOX1»9SB80X29SBOX3 2 SBOX4s SBOX Sy SBOX 62 SBOX7 ¥SBOX8 sy SBOX9, SBOX10,SBOX11) WHERE POINTER 


END FINI 


BEGIN 


POINTER PROCEDURE SETPT $y 
OEFOBJ() $y 
ADDOBJUSETPT(-410,-520) } 
ADDOBJI(CPYOBJ(BOX1)) 

SBOX1L = ENDOBJ) 


DEFOBJ() $y 
ADDOBJ(SETPT(-340,-520)) S$, 
ADDOBJ(CPYOBJ{BOX2)) $+ 
SBOX2 = ENDOBJ) $y 
DEFOBJ() $y 
ADDOBJUISETPT(-250,-520)) $y 
ADDOBJ(CPYOBJ(BOX3)) $s 
SBOX3 = ENDOBJ) $+ 
DEFOBJ() $» 
ADDOBJISETPT{(-—180,-520))} S$, 
ADOOBJ(CPYOBJ(BOX4)) $+ 
SBOX4 = ENDOBJ() $» 
DEFOBJ() $, 
ADDOBJ(SETPT(-110_-520)) $, 
ADDOBJ(CPYQGBJ(BOX5S)) $s 
SBOXS = ENDOBJI) $+ 
DEFOBJ() $+ 
ADDOBJISETPT(-4C,-520)) $+ 
ADDOBJ(CPYOBJS(BOX6)) $,% 
SBOX6 = ENDOBJ() $» 
DEFOBJ() $, 
ADDOBJ(SETPT(50%-520)) $e 
ADDOBJ(CPYOBJ(BOX7)) $y» 
SBOX7 = ENDOBJ() $, 
DEFOBS() $y 
ADDOBJ(SETPT{120,~-520)) $+ 
ADDOBJ(CPYOBJ(BOX8)) $+ 
SBOX8 = ENDOBJ() $, 
DEFOBJ() $s 
ADDOBJ(SETPT(190,-520)) $y 
ADDOBJ(CPYOBJ(BOX9)) S$» 
SBOX9 = ENDOBJ) $, 
DEFOBJ() $e 
ADDOBJ(SETPT(260,-520)) $y 
ADDOBJ(ICPYOBJ(BOX10)) $y 
SBOX10 = ENDOBJ) $s 
DEFOBJ() $s 
ADDOBJISETPT(350,4-520)) $y 
ADDOBJ(CPYOBJ(BOX11)) $+ 
SBOX11 = ENDOBJ() $e 

END $+ 


SBOX 1» SBOX2 »SBOX3 » SBOX4 » SBOXS » SBOX6,S BOXT y SBOXBs SBOX9s SBOX1L0, SBOX11 TOBE 


eee SAMPLE.BOX CREATES THE DISPLAY OBJECTS USED IN PROCEDURE 
CHOICE. EACH OBJECT IS A BOX AND A POINT TO POSITION THE BOX 

IN THE CORRECT PLACE WITHIN THE SELECTION AREA AT THE BOTTOM OF 
THE SCREEN // - 


eee ADD A POINT AT X = -4102 Y = -520 $, 

eee ADD A COPY OF. THE BOX TO THE GBJECT BEING CREATED $, 

eee TERMINATE THE OBJECT DEFINITION. SBOX1 IS A POINTER TO THE 
OBJECT, WHICH CAN BE ADDED TO THE OISPLAY FILE BY CALLING 
PROCEDURE PLOT. $, 
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DEFINE PROCEDURE MAKEBOX(BOX1 »BOX2 5 BOX3 » BOX4 » BOX 52 BOX6e BOX7T » BOX8 yBOX9y8OX10,B8OXL1) WHERE POINTER BOX1»,80X25B0X3 
+BOX4,B0X5 »BOX6,B0X7sB0X8 ,BOX9,BOX10e80X11 TOBE 

eee MAKEBOX DEFINES THE DISPLAY OBJECTS TO PLOT ALL OF THE 
SYMBOLS USED TO REPRESENT DEVICES // 

BEGIN 

POINTER BOX $» 

POINTER PROCEDURE LINgINVIS $e 

DEFOBJ() $, 

AODOBJCINVIS(LIN(10,10))) $s 

ADDOBJILIN(O,-20)) $, 

ADDOBJ(LIN(-20,0)) $, 

ADDOBJILIN(0,20}) $,» 

ADDOBJILIN(20.0)) $, ; 

BOX = ENDOBJ() eee DISPLAY OBJECT WITHOUT LEADS»NAME = BOX $e 


DEFOBJ() eee BOX WITH 2 LEADS AT POSITIONS DENOTED AS 3 AND 9 O'CLOCK $y 
ADDOBJICPYOBJ(BOX)) $,» eee ADD A COPY OF BOX TO COMPOSE A NEW OBJECT WITH LEADS $y» 


ADDOBJCINVISC(LIN(0,-10))) So 

ADDOBJ(LIN(20,0)) $, 

ADDOBJCINVIS(LIN(-40,0))) $y 

ADOOBJ(LIN(-20.0)) $y 

ADDOBJ(INVIS(LIN(30,30))) S$ ess REPOSITION BEAM INVISIBLY TO GIVEN POSITION RELATIVE TO THE 
BEAM POSITION AT THE BEGINNING OF THE QSJECT // 

BOX1l = ENDOBJ{) $, 
DEFOBJ() ' eee BOX WITH 2 LEADS AT 12 AND 6 OFCLOCK $y, 
ADDOBJ(CPYOBJ(BOX)) $, 

ADDOBUCINVIS(LINI-10,0))) $- 

ADDOBJ(LIN(0,20)) $, 

ADDOBJCINVES(LIN(0,~40))) S> 

ADDOBJ(LIN(0,-20)) $y 

ADDOBJCINVIS(LIN(0,60))) S$» 

BOX2 = ENDOBJ() $, 

DEFOBJC) ses BOX WITH 2 LEADS AT 12 AND 3 O'CLOCK $, 
ADDOBJ(CPYOBJIBOX)) $5 

ADDOBJCINVIS(LIN(20,-10))) $e 

ADDOBS{LIN(-2070)) $, 

ADOOBJCINVIS(LIN(-10,10))) $+ 

AODOBJILIN(0,20)) $, 

AODOBJLINVIS{LIN(-30,30))) S$» 

BOX3 = ENDOBJ) Ss 

DEFOBUI) «e- BOX WITH 2 LEADS AT 12 ANO 9 O'CLOCK $, 
ADDOBJ{CPYOBJ{BQX)) $- 

ADDOBJLINVIS{LINI-20,-10))) $4 

ADDOBJILIN(-~20,0)) $, 

ADDOBJCINVIS(LIN(30,10))) S$ 

ADDOBJ{LIN(0120)) $, 

BOX4 = ENDOBJ() $» 

DEFOBJ() eee BOX WITH 2 LEADS AT 6 AND 9 O'CLOCK $, 
ADDOBJ(CPYOBJ(BOX)) $» 

ADDOBS(INVIS(LEN(-20,-10))) So 

ADDOBJ(LIN(-~20,0)) S$ 

ADDOBJCINVIS(LIN(30,-10))) $ 

ADDOBJ(LIN(0,-20)) $y 

ADDOBJCINVIS{LIN(0,60))) $4 

BOX5 = ENDOBJ{) $, 

DEFOBJI) ; eee BOX WITH 2 LEADS AT 6 AND 3 DfCLOCK $, 
ADDOBJICPYOBJIBOX)) $, 

ADDOBSCINVISILIN(Oy-10))) So 

ADDOBJ(LIN(20:0)) $, 

ADDOBJ(INVISTLIN(-309-10))) $4 

ADDOBJ{LIN(0,-20)) $, 

ADDOBJCINVIS(LIN(0;60))) $- 
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END FINI 


BOX6 = ENDOBJ) $e 

DEFOBJ1) 

ADDOBJ(CPYOBJ(BOX)) $, 
ADDOBJCINVIS(LIN(0s—10))) $» 
ADDOBJILIN(2020)) $e 
ADDOBSCINVISILIN(—40,0))) $» 
ADDOBSILIN(-20,0)) $s 
ADDOBJLINVIS({LIN(30,101)) $y 
ADDOBJ(LIN(0920)) $y 

BOX7T = ENDOBJ() $+ 

OEFOBJ{) 

ADWOBI(CPYOBJIBOX)) $, 

AODQR BI INVIS{LIN(-10,0))) $y 
AODOBS(LIN(0,20)) $5 


AQOOBS CINVIS(LIN(09~40))) $» 


ADDOBJ(LIN(0,-20)) $- 
ADDOBJUINVIS(LEN(-10,30))) $+ 
ADDOBI(LIN(-2000)) $s 
ADDOBUCINVIS(LIN(30530))) $e 
BOX8 = ENDOBJ() $+ 

OEFOBJ() 

ADDOBJ(CPYOBJ(BOX)) $, 
ADDOBUCENVIS(LEN(0s-10))) $s 
ADDOBJ{LIN(20:0)) $, 
ADDOBJCINVIS(LIN(-40,0))) $s 
ADDOBJ(LIN(-2090)) $s 
ADDOBJCINVES(LIN(30,-10))) $+ 
ADDOBJ(LIN(0s-20)) $y 
ADDOBSLINVIS(LIN(0,60))) $5 
BOX9 = ENDOBJ() $e 

DEFOB JI) 

ADDOBJ(CPYQBJ{BOX)) $e 
ADDOBJCINVIS{LINI-10,0))) $y 
ADDOBJILIN{(0,20)) $5 
ADDOBJLINVIS(LIN(0s—40))) $s 
ADDOBJILINI0,-20)) $, 
AQDOBICINVIS(LINE10,30))) $ 
ADOOBSILIN(20:0)) $+ 
ADDOBJCINVIS(LIN(-30,30))) $y 
BOX1O = ENDOBJ() $» 

DEFQOBJ() 

ADDOBJICPYOBJ{BOX)) $, 
ADDOBUCINVIS(LIN(-10,0))) $e 
ADDOBJILIN(0220)) $» 
ADDOBJ(INVISCLIN(0,-40))) $e 
ADDOBJILIN(0»-20)) $, 
ADDOBJLINVIS(LIN(10¢30))) $+ 
ADDOBJILIN(2020)) $+ 
ADDOBJLINVIS(ILIN(-40,01)) $e 
ADDOBJILIN{-20:0)} $» 

AODOB JC INVIS(LIN(30530))) $» 
BOX1LL = ENDOBJC) $, 

END S$. 


eee 


BOX WITH 3 LEADS AT 399 AND 12 O'CLOCK $, 


BOX WITH 3 LEADS AT 679 ANO 12 O'CLOCK $s 


BOX WITH 3 LEADS AT 359 AND 6 O*CLOCK $y 


BOX WITH 3 LEADS AT 356 AND 12 O'CLOCK $+ 


BOX WITH 4 LEADS $, 
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